











Ingrese al mundo de la computación y electrónica con su 
Tarjeta de Crédito Preferencial Muricy. 

En Muricy encontrará toda la línea de Home Computer con 
una gran variedad de marcas y precios. Muricy le proporciona 
atención especializada y orientación en la adquisición del 
computador adecuado para usted o sus hijos. Decídase, 
incorpore hoy los avances de la computación y electrónica a su 
hogar, con los precios más convenientes. En Muricy usted 
cuenta con exhibición y demostración permanente de estos 
equipos. Use su Tarjeta de Crédito Preferencial y sáquele partido. 
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Editorial 

A MIGOS de la gran familia ATARI de Latinoamérica, desde este 
momento estará presente con ustedes MUNDOATARI, como 
respuesta a la solicitud de distribuidores ATARI. Nos dirigiremos 
a los usuarios de los países hermanos con la misma definición y objetivos 
planteados para nuestro país de origen. 

Las actividades de. esta editorial aumentan con el conocimiento 
del mercado ATARI latinoamericano y hará posible la participación de 
cada país en un marco de integración que vislumbra proyecciones 
futuras insospechadas. 

Presentamos como muestra en este número software producido 
por SKYDATA, representante oficial de ATARI para Argentina, y que 
corresponde a una línea definida por MUNDOATARI como simuladores. 
Ellos pueden cubrir aspectos diferentes en objetivos específicos de las 
diferentes asignaturas y son aplicables a todos los países latinoamericanos. 

Este software abre un camino amplio en aspectos tales como: 

1. El computador ATAR! como apoyo efectivo para el profesor de 
asignatura, como un valioso medio audiovisual de proyecciones, 
en el logro de objetivos específicos de un contenido para una 
determinada asignatura. Ver al respecto el programa descrito: 

Ley de BOYLE y MARIOTTE. 

2. La integración de este software o cualquier otro producido por 
países latinoamericanos. 

Al darse a conocer inmediatamente en la totalidad de los países 
latinos, trae como consecuencia la optimización de recursos de 
programación, y por ende, un menor precio de venta al usuario, 
con la consiguiente disminución de las copias ¡legales o piratas. 

3. MUNDOATARI, en números futuros, proyecta presentar un 
Catálogo Internacional de software en castellano para la gran 
familia ATARI latinoamericana. 

Amigos en general, en sus manos se encuentra la posibilidad de 
ayudarnos a cumplir los objetivos propuestos, a través de su cooperación 
al preferir esta revista en su kiosco. 

Desearíamos recibir sus comentarios al respecto dirigidos a nuestra 
casilla 458-11, Santiago de Chile. 


MUND@ATARI 


NOVIEMBRE 1987 Precio $ 300 

Revista con información exclusiva 
para mícrocomputadores ATARI 
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Prohibida la reproducción total 
o parcial de esta revista sin la 
autorización escrita de los editores. 
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PROGRAMAS 


Ley de Boyle-Mariotte 



Presiona barra p&r a pXfSMM Ivaior»** 


Este mes presentamos uno de 
los simuladores producidos por 
SKYDATA en Argentina, y que 
corresponde a la Ley de Boyle 
y Mariotte. 

Para los profesores de Cien¬ 
cias Naturales es bien sabida la 
dificultad de implementar estas 
demostraciones experimental¬ 
mente. Pero con ATAR! educa¬ 
cional y SKYDATA se solucio¬ 
nan, y su computador adquiere 
la potencia que MUNDOATARI 
ha planteado desde su comienzo. 


Nos sentimos complacidos 
por estos logros de programa¬ 
ción de SKYDATA y creemos 
que se encuentran en la senda de 
la necesidad futura educacional 
latinoamericana. 

Estos programas son módulos 
que se integran fácilmente a cada 
país en el nivel y asignatura del 
país que requiera de su eficiencia. 

El programa requiere de la ex¬ 
plicación permanente del profe¬ 
sor de asignatura para desarro¬ 
llar una triple interacción profe¬ 
sor - ATARI - alumno para ad¬ 


quirir los conocimientos y apren¬ 
dizajes de estas experiencias en 
las Ciencias Naturales Básicas. 
El menú inicial contempla: 

— Ley de Boyle y Mariotte 

— Ejercicios 

La primera selección realiza 
una demostración práctica de la 
ley. 

En la segunda existe la posibi¬ 
lidad de interacción con el alum¬ 
no para evaluar los objetivos al 
canzados. 
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PROGRAMAS 


Otro producto de SES Sistema 
para usuarios de la Unidad de 
Disco ATAR! 1050. 


La Unidad de Disco es, sin 
duda, el equipo ideal para la 
mayor fa de los usuarios, en 
cuanto a la capitalización inicial 
de! hardware. 

La configuración ATARI con 
Unidad de Casete es importante 
como punto de partida, más aún 
si se considera el recurso de au 
dio para las aplicaciones educa¬ 
cionales con los pequeños del 
grupo familiar. Pero en el ma¬ 
nejo de trabajos de uso profe¬ 
sional o comercial se requiere 
de la velocidad y seguridad de 
la Unidad de Disco, como peri¬ 
férico de almacenamiento de 
información. 

Para aquellos usuarios que 
proyectan adquirir una unidad 
o para quienes ya la poseen, SES 
Sistema presenta un utilitario 
único para la optimización de su 
uso: el DOS 2.5: 1050. 

Este es un curso de capacita¬ 
ción personalizada en 3 diskettes 
(correspondientes a niveles de 
conocimientos), que le permitirá 
avanzar en el manejo de archivos 
según el nivel de dominio del 
tema. / 

1) Nivel UNO: capacita el mane¬ 
jo básico del menú del DOS 
y archivos. 

2) Nivel DOS: d Trigido a usua¬ 
rios con dominio del BASIC. 
Proporciona información re¬ 
forzada para crear archivos 
que permitan manipular datos 
por medio de la Unidad de 
Disco. 

3) Nivel TRES: para usuarios 
más avanzados, que quieran 
mejorar las técnicas de pro¬ 
gramación con recursos de 
rutinas de máquina. 

MUNDOATARI, como una 
promoción especial, entrega de 
regalo por la compra de este 
programa 30 rutinas para manejo 
de archivo, que le permiten com¬ 
plementar el tema. 

En MURICY se encuentra dis¬ 
ponible también esta oferta con 
el uso de sus beneficios. # 


□OS 2.5: 1050 
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REPORTAJE 


Colegios con ATARI 



Colegio visitado: 

Liceo Técnico Femenino. 

B-39 

Recoleta 2774, Santiago 
Coordinador de Computación: 
Sr. Ricardo B/anch Morgado 
(izquierda) 



MUNDOATARI continúa vi¬ 
sitando la realidad educacional 
con ATARI en Santiago. 

Don Ricardo Blanch Morga¬ 
do, coordinador de computa¬ 
ción de CORESAM (Corpora¬ 
ción Municipal de Educación, 
Salud y Atención de Menores) 
y director del Liceo B-39, es 
gestor de un interesante proyec¬ 
to para integrar el computador 
ATARI en las actividades educa¬ 
cionales. 

Hay un total de 6 estableci¬ 
mientos municipales bajo su 
coordinación y cuentan con 
27 computadores ATARI. Rea¬ 
lizan actividades como: 

— Cursos de capacitación en len¬ 
guajes BASIC y LOGO para 
profesores de asignatura de 
los establecimientos del área. 

— Cursos en 3 niveles (A, B, C) 
para los alumnos del área. Es 
importante destacar que los 
planes desarrollados son igua¬ 
les y compatibles entre los 
distintos establecimientos. 

A partir del segundo nivel de¬ 
sarrollan los alumnos progra¬ 
mas de apoyo en las diferen¬ 
tes asíg nat u ras, coordirtados 
por los profesores de asigna¬ 
tura y de computación. 

Esta modalidad la considera¬ 
mos muy importante y cree¬ 
mos que debería servir de mo¬ 
delo para los objetivos de la 
asignatura de otros estable¬ 
cimientos. 

— Actividades especiales duran¬ 
te el período de vacaciones, 
que contemplan cursos para 
profesores y alumnos, para 
capacitarlos a niveles supe¬ 
riores. 

Este proyecto de CORESAM 
es un modelo de investigación 
práctica y debemos felicitar al 
señor Blanch por su creatividad, 
perseverancia y dirección de 
este proyecto. 

Para mayor información de 
este proyecto escriba a: 

Colegios MUNDOATARI 
Casilla 458-11 

Santiago • 
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Directo al 6502 


Para desarrollar video-juegos como el de 
la presentación se requiere 
de programación avanzada en máquina. 


PROBLEMA: BUFFER DEL CASETE 

La interrogante del número anterior será el 
punto de partida de la columna de este mes: 

¿Cómo poner en pantalla los valores del 

buffer de la casetera? 

En este número proporcionaremos una solu¬ 
ción, que la definiremos como simple, en el senti¬ 
do de ejecutarla con las instrucciones estudiadas 
hasta ahora en lenguaje ASSEMBLER. 

Para producir el efecto esperado el ciclo del 
ATARI BASIC soluciona la repetición: 

La primera modificación de datos para el pro¬ 
grama anterior proviene de la localización especí¬ 
fica en la memoria para el buffer del casete. Estas 


localizaciones parten en la 1024, es decir, en la 
página 4. 

Recuerde al respecto que: 

1024/256 = 4 
1024 = $ 400 

y por ende la localización inicial se encuentra en 
$0400 (1024). 

La instrucción será: 

LDA $ 400 

El valor inicial en pantalla a editar lo localiza 
remos en página 157 decimal ($ 90), y la instruc¬ 
ción será: 

STA $ 9D 
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ASSEMBLER: continuación 



Completando con PLA y RTS (ver numero 5 
de MUNDOATARI): 


PLA 

104 

1536 

LOA f 400 

173 

1537 


0 

1538 


4 

1539 

STA <9000 

141 

1540 


0 

1541 


157 

1542 

RTS 

% 

1543 


Los códigos decimales de la columna son los 
que corresponde introducir en página seis (para 
activar con la función USR). 

La tercera columna corresponde a la localiza¬ 
ción en página seis, que contendrá el valor a eje¬ 
cutar el ciclo de lectura de datos (lineas 20-50). 

Digite el listado siguiente y ejecute: 


18 GRAPHICS 8 
28 FOR J~0 T0 7 
38 READ D 
48 POKE 1536+J,l> 

58 NEXT J 
88 Y=U5RC1536) 

188 DATA 184,173,8,4,141,8,157,96 


El efecto de esta ejecución será mover el pri¬ 
mer byte del buffer en página 4 hacia el primer 
byte de la página 157 en la pantalla. 

A continuación conectamos con nuestro ATA- 
Rl BASIC y el ciclo FOR... TO... 

¿Cuáles localizaciones de la página 6 identifi¬ 
can el byte? 

En el esquema anterior vemos que la localiza¬ 
ción 1 538 contiene el byte de la página, el que co¬ 
rresponde al 0 (página del buffer de casete). 

La localización 1541 contiene el byte 0, tam¬ 
bién de página 157, que corresponde al área de 
pantalla. 


Modifiquemos estas localizaciones para la va 
riable control del ciclo con las siguientes líneas de 
programa: 


18 REH GR.8 

20 FOR J=0 TO 7 

38 READ D 

40 POKE 1536+J,D 

50 NEXT J 

60 FOR J-0 TO 127 

70 POKE 1538,J:POKE 1541,J 

80 Y-U5RC1536) 

98 NEXT J 

100 DATA 104,173,0,4,141,0,157,96 


Ejecute el programa y podrá apreciar los datos 
que aparecen en pantalla. 

MUNDOATARI, consecuente con su defini¬ 
ción, proporciona material para la investigación 
relacionada con otras columnas, en este caso con 
la de casete. 

Digite y ejecute el listado siguiente: 


1 OPEN til,8,0,"C:" 

2 PRINT #1;" probando n 

3 PRINT M; u el buffer " 


Observará en pantalla lo ilustrado con la foto: 



Interesante ¿verdad?. Realice las siguientes 
modificaciones: 

1. Agregue operadores y ", " para observar la 
forma de almacenarse en el buffer. 

2. Cambie las letras de mensajes por MAYUSCU¬ 
LAS. 

3. Agregue instrucción para cerrar IOCB. 

El próximo mes continuaremos con otras 
formas de direccionamiento. que permiten una 
solución más expedita para el problema. 

Hasta entonces. • 
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ASSEMBLER: continuación 


USR 



fV/ 


VENTANAS EN MODO CERO 

Este mes la columna USR proporciona la res¬ 
puesta a la interrogante planteada el número ante¬ 
rior. de como construir una ventana de comunica¬ 
ción con el usuario en el modo cero. 

Dicjite cuidadosamente el listado siguiente: 


1 REH P0KE 39373,152 
10 PIH R$C1) 

12 hover-apr 


TfTP 


EüJU 


fqFnPjFO 


15 P0KE 82,B:G05UB 1000 

20 GRAPHIC5 6:P0KE 752,i:F0R J=0 TO 28 


30 ? •' ATARI líder en CHILE 1987 


40 NEXT J 
100 FOR J=0 TO 6 
110 INI=40365+J*40 
120 FIN-39880+J*15 
130 UEHTA=39424fJ*15 
140 Y=U5R(MOVER,INI,FIN,15) 
150 Y=U5RCN0VER,VENTA,INI,15) 
160 NEXT J 
200 P05ITION 0,20:? 


A RETURN Y ELIMINA 


PRESIONE LA TECL 


LA VENTANA 


210 INPUT R$ 

300 FOR J=0 TO 6 
310 INI=39800+J*15 
320 FIN-40365FJN40 


340 Y-U5R(H0VER,INI,FIN,15) 
360 NEXT J 
400 PO5ITI0N 0,28:? 


• 4 


PRESIONE LA 


A RETURN Y ELIMINA 




418 INPUT RS 
588 GOTO 100 
999 ENO 

1008 OIH VENTANOS(185),ELES(15) 

1018 FOR J=0 TO 6 

1020 REAO ELES 

1038 VENTANAS(1+J*15)=ELES 

1040 NEXT J 


1050 POKE 87,8:P0KE 88,0:POKE 89,154:P 
05ITI0N 8,0!? VENTANAS 


1060 RETURN &£ 
1065 DATA fZZZZ 


1870 DATA IHEQ£ 
1080 OATA | 

1890 OATA I 

lCM 



2 5ALV 


3 C 


1100 PATA IKftUUHI 
iii0 pata 

1120 PATA 1 — 1 

£ 


Ejecute y observe el ciclo de superposición 
entre el texto y la ventana de comunicación, man 
teniendo vigente la información, como lo ilustran 
las fotos siguientes: 
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ASSEMBLEfí: continuación 



El manejo de la memoria es fundamental para 
la ejecución de programas optimizados. Probemos 
lo afirmado, digite la instrucción siguiente: 

POKE 39973,152 

Aparecerá en pantalla lo siguiente: 



En esta foto aparecen las 4 páginas inferiores 
de la memoria (152, 153, 154, 155), las que con¬ 
tienen la información a desplazar hacia la pantalla 
inicial (páginas 1 56, 1 57, 1 58 y 159) 

Examinemos las líneas que ejecuta la función 
USR. 


RUTINA PARA CREAR VENTANA: 

100 Ciclo para 7 movimientos que corresponden al 
número de líneas. 

110 Variable INI define la posición inicial para 
ATAR I 800 y 130, con la ubicación de la ven¬ 
tana 40.365. 


5 



posición inicial 40.000 

9 líneas 360 

posición 5 _5_ 

40.365 

120 Define una posición en páginas inferiores. Ele¬ 
gimos 38.000 para guardar el texto en pantalla 
130 Define variable que contiene el texto de la 
ventana: 39.424 corresponde a la página 154. 
140 Mueve 15 caracteres desde el texto hacia la 
página de reserva. 

150 Mueve 15 caracteres desde la página que con¬ 
tiene ventana menú hacia la página de texto. 
160 Repite el ciclo. 

RUTINA PARA RESTITUIR EL TEXTO: 

300 Ciclo para número de líneas de ventana. 

310 Define la posición INI: 39.800, que contiene 
el texto en páginas inferiores. 

320 Define FIN como posición inicial de ventana 
de menú para restituir el texto. 

340 Ejecuta la instrucción USR MOVER. 

360 Repite el ciclo. 

Las líneas 200 y 400 contienen una pausa pa¬ 
ra observar el efecto. 

La subrutina del 1.000 al 1.120 edita en pági¬ 
na 154 la ventana. Observe la utilización de la loca¬ 
lización de memoria 87, 88 y 89 analizadas en la 
columna De Byte en Byte de números anteriores. 



— Optimicen esta rutina, para que se pueda in¬ 
gresar la ventaría en cualquier lugar de la pan¬ 
talla. 


Hay premios para las soluciones correctas. Es¬ 
criban a casilla 458-11, Santiago. 

El próximo mes desarrollaremos una nueva 
rutina de búsqueda binaria, a pedido de la columna 
Primeros pasos en ATARI BASIC, la que le permi¬ 
tirá aumentar la potencialidad en programación 
para su computador ATARI. • 
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PROGRAMAS 


S.O.C. 

Sistema Operativo de Casete 


Para usted que es poseedor de un computador 
ATARI 800 XL ó 130 XE con unidad de casete va 
dirigida esta pregunta: ¿le gustaría poder manejar 
sus programas o archivos en casete de forma simi¬ 
lar al diskette? 

Ahora existe una poderosa herramienta de 
software para su unidad de casete: SOC, Sistema 
Operativo de Casete. Este es un programa especial¬ 
mente diseñado para simular el DOS (Sistema Ope¬ 
rativo del Disco) utilizado con las unidade^de dis- 
kette. 

De esta forma,«ahora es posible disponer de 
un "Directorio" con los contenidos de programas 
y su ubicación dentro de la cinta, facilitando la 
tarea de búsqueda y carga de programas desde la 
cinta, asegurando un óptimo rendimiento de su 
unidad de casete (ATARI 410, 1010, XC-11 o 
XC-12), 

¿Cómo utilizar el SOC? 

Muy fácil, usted coloca el casete conteniendo 
el programa SOC en su unidad de casete, presiona 
la teda PLAY y luego enciende su computador 
con la tecla START presionada. Al cabo ele algu¬ 
nos segundos, el programa SOC se carga en su com¬ 
putador y se encuentra disponible para su uso. 
Para pasar al menú de opciones del SOC debe digi- 
tar la palabra SOC y presionar la tecla RETURN. 
En forma inmediata se despliega en pantalla el 
siguiente menú: 

Para escoger cualquiera de las opciones del 
menú, debe digitar la letra correspondiente y pre¬ 
sionar RETURN. 

La utilización del SOC le permite grabar y 
leer los programas del casete con sus nombres de 
archivo (igual al DOS) y el sistema se preocupa 
de realizar la búsqueda y correcta carga del pro¬ 
grama. De esta forma, ya no tendrá problemas a! 
cargar un programa que se encuentra dentro de 
un casete. 




dt c*s**tt* s.o.T 

rfviiion i M9BT 
£or L *W'”t> L £’ CARARALL 


directorio 
volver a basic 
C,~ copiar archivo 
o.- duplicar archivo 
E.- leer archivo con stjrt 

leer archivo con option y start 
c.•*- yrabar S.O.C. 

H. - correr desde dirección 

I. - escribir directorio 

J. ~ leer directorio 

elija itea o return para nenu 

INSERTE CASSETTE DESTINO* PRESIONE 
PILOY k RECORD, LUEGO RETURN 


El Sistema Operativo de Casete 
permite "formatear una cinta" y tener beneficios 

similares a! DOS. 

Una buena noticia para ¡os usuarios de caseteras 


Para lograr un óptimo aprovechamiento del 
SOC, es importante ceñirse a una metodología 
de uso, que involucra utilizar los comandos co 
rrectos de grabación y lectura, utilización correc¬ 
ta del contador de vueltas, definir el espacio al 
comienzo de la cinta para el directorio, etc y 
de esta forma no tendrá más errores en la carga 
de sus programas. 

No espere más, utilice desde hoy el nuevo 
SOC y disfrute de la unidad de casete. 

Para adquirir el programa descrito puede uti¬ 
lizar la Orden de Pedido adjunta al Catálogo ATA- 
Rl, de acuerdo a las siguientes especificaciones 


Modelo 

Descripción 

Medio 

(unidad) 

Memoria 

requer. 

$ 

precio 

SOC 

Case re Sistema Operativo 
de casete 

7 

4 Kb 

1.000 
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TECNICAS 


Set de 
caracteres 



ESTRUCTURA DE UNA LETRA 

La interrogante pendiente del número anterior 
se refería a la relación que tienen: 

— Los códigos 0, 24, 60, 102, 102, 126 102, 0 

— La ubicación 33 

— La letra "A" editada en pantalla. 

Para integrar estos elementos el ATARI es un 
excelente tutor. Bastará con digitar el siguiente lis¬ 
tado: 


10 REM 5ET2 OCTUBRE 
20 DIM BINARIOS(8) 

25 GRAPHICS 0 
38 F0R J^d T0 7 
40 READ 0 
50 BINARI0$” H 
68 DIGITO-7 
70 F0R K-l T0 7 
80 POT-2 A DIGIT0 
S8 IF D(P0T THEN 120 
100 D-D-POT 
110 BINARIO$CK,K)= ,l | 14 
126 DIGIT0-DIGIT0-1 
130 NEXT K 

140 POSITIQN 10,J+5:? BINARIÜ$ 

158 NEXT J 

280 DATA 0,24,60,102,102,126,102,0 


Ejecute el programa y apreciará cómo en pan¬ 
talla aparece la letra A. 



Interesante, pues en este programa se encuen¬ 
tra conectado el proceso que ejecuta el Sistema 
Operativo para editar en pantalla la letra A. 

ACTIVIDAD: 

1. Limpie la pantalla y digite : 

POKE 40000,2 

El carácter editado corresponde a la foto: 



2. Utilice el programa SLT1 de MUMDOATARI 
No. 5 para buscar los códigos en ubicación 2 
del SET. 

3. Modifique la línea 200 de DATA con estos 
8 nuevos valores. 

4. Ejecute el programa. 

Interesante. Gracias a la tutoría de su ATARI 
usted se encuentra en condición de entender con¬ 
ceptos más específicos, como el caso de código 
interno. 

Hasta el próximo mes. • 
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MEMORIA 


De byte 
en byte 


10 GRAPHICS 8 
20 DIM R$(1) 

30 FOR J-0 T0 19 

40 ? "EDITA LA LINCA NUMERO M ;J 

50 NEKT J 



70 INPUT R$ 

00 ? CHR$(125) 
100 END 


Ejecute y observe una pantalla corno indica la 
foto siguiente: 


2. CONTROL DE FUNCION ESPECIAL 
Localización 766. 

Un grupo característico de caracteres cumple 
una función especial. El siguiente listado demues¬ 
tra la función de ellos, asociada a la instrucción 
PRINT CHRS (código). 

Digite el listado y ejecute: 


10 GRAPHIC5 0:INDICE=0 
20 DIN CODIGOC16),R$(1) 

30 READ D 

40 IF Dn-l THEN 100 
50 INDICE=INDICEU:C0DI60(INDICE) =D 
60 GOTO 30 

70 DATA 27,28,29,30,31,125,126,127,155 
,156,157,158,159,253,254,255,-i 
100 GRAPNIC5 0:K=INTIRND €09*15)*1 
110 CARAC=C0DIG0CKI 


120 P05ITI0N 2,10;? "EL CODIGO E5 ";CA 
RAC;" Y OBSERVE SU FUNCION" 

125 POSITION 10,11;? « ATARI"; 

130 FOR J=1 TO 5 
140 PRINT CHRS (CARAO; 

150 FOR PAUSA=1 TO 500!NEKT PAUSA 
160 NEKT J 

200 POSITION 0,20:PRINT 


DESEA UER OTR 


«i 


A FUNCION DE TECLA ESPECIAL 


DIGITE S 


/N" 

210 INPUT R$:IF RS="5" THEN 100 
220 END 


Interesante programita personal que guardaba 
el Profesor Chip en sus archivos y aceptó publi¬ 
carlo para ustedes, amigos lectores. Disfrútenlo. 

Ahora a nuestro tema de la localización 766 
y sus acciones en la fundón especial de las teclas 
mencionadas. 

Digite cuidadosamente el siguiente listado: 



Presione la tecla RETURN y observe la pan¬ 
talla como indica la foto: 



Digite a continuación la linea: 

75 PONE 766,1 

i 

Ejecute y observe el cambio en la ejecución. 

Modifique la línea con: 

75 POKE 766,0 


Concurso De Byte en Byte para nuestros lec¬ 
tores más entusiastas: 

Envíen las conclusiones acerca de este artícu¬ 
lo a Columna De Byte en Byte, casilla 458-11, 
Santiago. 

Todos los nombres que se publiquen con res¬ 
puestas correctas tendrán premios de estímulo. 
Hasta el próximo.mes. • 
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TUTORIA 


Primeros 
pasos en 
ATARI 
BASIC 




DUPLICIDAD DE INFORMACION 

Este mes continuamos con el tema propuesto 
anteriormente: ¿Cómo evitar la duplicidad de in¬ 
formación? 

Apliquemos el problema a un tema específico: 
un programa para manejar el set de programas de 
un usuario ATARE 

Los atributos pueden ser los siguientes: 

1. Nombre del programa (firma productora del 
solí). 

2. Clasificación del programa (pauta previa). 

3. Código interno. 

4. Memoria (tipo de ATARI). 

5. Productor de! software. 

6. Lugar físico en que se encuentra (diskette o 
casete). 

7. Otros. 

Estos antecedentes conforman una especie 
de ficha para cada programa clasificado. 

Observe que estos requerimientos para cum¬ 
plir estas etapas han sido desarrollados por las co¬ 
lumnas Cassette y Diskette en números anteriores. 

Una vez digitadas las líneas correspondientes 
para este proceso, se inicia el ingreso de la infor¬ 
mación de cada usuario. Pero ¿qué sucede si el 
programa se encuentra repetido?. El programa 
debe contener algún medio para establecer y des¬ 
cartar la duplicidad de información. 

Para solucionar este problema propondremos 
una solución práctica: 

1. Definir el atributo diferencial y característico 

en el que no debería existir la repetición. Para 
el ejemplo tratado consideremos el nombre 
(que no es el más indicado). 


2. En el campo relacionado al nombre se deli¬ 
mita el número de bytes. 

3. Definir el número de programas máximos (l¡- 
mitancia por capacidad económica o por es¬ 
pacio en el disco). 

4. Reservar la cantidad de memoria necesaria 
para almacenar todos los nombres de progra¬ 
mas (corno un índice). 

Ejemplo: 

Cantidad de programas 100 

Bytes para nombres 30 

Total de bytes * 3.000 

Se requiere un total de 3.000 bytes para este 

índice. 

Una forma de reserva es en una variable alfa- 
numérica (string), que requiere de una dimen¬ 
sión previa. 

5. Preparar una rutina para crear un archivo con 
este índice, de manera que se mantenga la in¬ 
formación actual del índice. 

6. Rutina para validar el ingreso, eliminando la 
posibilidad de información repetida. 

El trabajo de esta rutina consiste en evaluar el 
nuevo ingreso de información. 



En este diagrama del flujo de la información 
adquiere una importancia vital la búsqueda de un 
dato específico dentro de un conjunto. 

Esta rutina de búsqueda será proporcionada 
en la columna USR del próximo mes, con una 
serie de posibilidades prácticas como las mencio¬ 
nadas en la presente columna. 

Hasta entonces. • 
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MEMORIA 


130 XE 



Iniciamos una nueva columna para los usua¬ 
rios deI ATAR! 130 XE, como una necesidad de 
programar el banco secundario y satisfacer así las 
inquietudes de este grupo de usuarios. 


La presente rutina corresponde a una forma 
para mover datos hacia el banco secundario. 

Digite cuidadosamente el listado adjunto: 

El próximo mes proporcionaremos las expli¬ 
caciones correspondientes y aplicaciones posibles. 

En esta columna se inicia asimismo una idea 
para los usuarios del ATARI 130 XE que posean 
además una Unidad de Disco: formar parte del 
Club ATARI Diskette 8 bits. 

Envíe una carta indicando: 

Nombre completo 

— Número de socio del ATARI CLUB 
Número de suscripto! 

con lo cual pertenecerá a este Club que ofrece 
inicialmente a sus miembros: 

Manuales para SYNCALC y SYNFILE en cas¬ 
tellano, a precio de fotocopia. 

— Copia de estos 2 utilitarios a precio de dis¬ 
kette. 

Visítenos en nuestro local en Av. 11 de sep¬ 
tiembre 2305, local 18, o escriba a casilla 458-11, 
Santiago. 

Hasta el próximo mes. 


5 TAM=4096 

7 REM VALOR MAXIMO DE TAM= 4896 

8 REM DEBE dimensionar la variable A$ 

9 DIN A$CTAM) 


11 REM ML RUTINA para nover caracteres 

12 MOVER::ADRC“hhXlhnr^^ 


DDOQ 


fUfpP 


iza2anzM34 M i 

3888 REM RUTINA para nover caracteres 
desde el banco principal hacia el 
banco secundario. 

3889 REM Inicializa el STRING A$ o 
elimina si proviene con data de 


otro proceso 

3818 A$ClI= n ai :A$(TAM) ":A$(2)=A$ 

3819 REM VALOR DE POB corresponde a lo 
calizacion 54817 

3828 P0B-54017 

3829 REM DETERMINA el BLOCK del BANCO 


Secundario que Mueve los datos. 
Ver Uti-81 


3838 POKE P0B,193+BL0CK 

3831 REM VALORES de BLOCK pueden ser 

8-1-2-3 

3839 REM UBICACION EN EL BLOCK del 
BANCO 2 de los data en STRING A$ 

3848 REM L0C= ? 

3841 REM VALORES de LOC pueden ser de 
0 a 16363-TAM 

3842 REM LOC corresponde a la locali¬ 
zación inicial del STRING A$ en 


BLOCK del BANCO 2. 

3849 REM parámetros para ML rutina 
MOVER 

3058 X=USR(MOVER,ADRCA$),LOC,TAH) 

3851 REM MOVER Vocalización ML 

rutina. 

3852 REM ADR(A$)=localizacion inicial 

de caracteres que 
mueve al BANCO 2 

3853 REM LOC =localizacion final 

en BANCO 2 . 

3854 REM TAM ^Numero de caracteres 

que mueve 

3868 REM 
3861 REM 

3062 REM TODO EN SU LUGAR 

3063 REM 

3064 REM CARACTERES MOVIDOS 

3065 REM 

3066 REM 

3069 REM TODO NORMAL DE NUEVO 

3070 POKE POB,253 
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UTILITARIOS 



Torpedo) 


Esta columna permanente está’ dirigida a todos 
los lectores para que formen una librería con ruti¬ 
nas, trucos y secretos. Se aceptarán colaboraciones 
para promover el intercambio de experiencias. 
Todas las rutinas que sean publicadas recibirán un 
premio de incentivo consistente en una Tarjeta 
de Referencia A TARI que contiene todos los datos 
de interés que un programador debe tener a mano. 



INGRESO DE STRING 

El manejo de string es fundamental en el ATA- 
Rl BASIC. Comprobemos esta afirmación con el 
listado siguiente: 


10 LARG0=FRE(0)-580 
20 PRINT LARGO 
30 DIH AS(LARGO) 

40 AS (1) z 1 # 1 : AS (LARGO) : AS (2) =A$ 

50 PRINT AS 


Digite cuidadosamente y ejecute. 

Este programa crea una cadena de caracteres 
con el largo disponible de la memoria menos 500 
caracteres. En otros microcomputadores se en¬ 
cuentra restringido el largo de los strings a un 
número pequeño de caracteres. 


Pero ¿qué sucede si modificamos la línea 40 
para ingresar caracteres en este string? 


40 PRINT “DIGITE UNA CADENA DE 208 CAR 

ACTERE5 M 

50 INPUT AS 

55 P05ITI0N 0,10 

60 PRINT AS 


Al ejecutar el programa modificado aparece 
una pantalla como indica la foto: 



Ingresando la cantidad pedida de caracteres 
comprobamos que en la variable alfanumérica 
A$ se retiene una cantidad menor de caracteres 
como lo demuestra la foto inferior. 



¿Cómo eliminar esta problemática del manejo 
de string? 

Digite cuidadosamente el listado siguiente: 


15 REH prograwa para ingresar en los 
STRING un nuMero Mayor a 133 carac¬ 
teres 

20 OPEN tti,4,0, M K: Ba :REM Asigna IOC0 Ui 
al TECLADO 

30 DIH AS(1000):REH DiMensiona la va¬ 
riable AS para 1000 caracteres 
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NOVATOS 


ABC 



Esta columna la hemos dedicado para usted, 
amigo lector de MUNDOATARI, que recién se 
inicia en el fascinante mundo de la computación 
personal, posibilidad proporcionada por su ATARI. 

Para empezar veremos la solución del número 
anterior en el listado siguiente. Digite cuidadosa¬ 
mente estas líneas y compare la ejecución con el 
anterior. 


"15 GRAPHICS i 

18 PRIRT “ingrese el valer de A" 

28 IRPHT A 

25 PRIRT “El valor de A en linea 20 es 
“1A 

*0 B=A~15 

35 PRIRT “El valor de 8 en linea 30 es 
40 C“B~C 

45 PRIRT “El valor de G en linea 40 es 
“;C 

50 A=0 

55 PRIRT “El valor de A en linea 50 es 
"I A 

60 B-C/2 

65 PRIRT “El valor de 0 en linea 60 es 
70 C=B 


75 PRIRT “El valor de C en linea 70 es 
“;C 

80 PRIRT “ VALOR OE A “;A 
85 PRIRT “ VALOR DE B “;B 
90 PRIRT 11 VALOR DE C ";C 
100 60T0 15 


Observe que este listado es idéntico al del mes 
anterior, salvo la línea 100 que incluye una nueva 
instrucción GOTO. 

100 GOTO 15 

Esta instrucción direcciona la ejecución del 
programa a una nueva línea, en este caso hacia la 
línea 15. 

El siguiente esquema ilustra ¡a situación: 


PROGRAMA 


15 

18 


GRAPHICS O 


90 

100 GOTO 15 


Ejecute este listado e ingrese el valor de la 
variable A. Por ejemplo el valor 20, como lo mués 
tra la foto: 
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NOVATOS: continuación 


Al presionar RETURN, una pantalla pasa 
rápidamente, impidiendo leer los datos de salida 
de líneas siguientes, y nuevamente aparece la pan¬ 
talla pidiendo un nuevo ingreso para la variable A. 

Por lo tanto la solución es sólo parcial. ¿Cómo 
eliminar este problema? 

Existen varias soluciones al respecto. La co¬ 
lumna NOVATOS proporcionará una de ellas y 
aceptará proposiciones de lectores para su publi¬ 
cación en números futuros. 

Agregue al programa inicial las líneas siguien¬ 
tes: 


19 »IH PAUSASCl) 

95 PiSITION 8,291? “PRESIONE HMMíl y 
continua "rlNPUT PAUSAS 


Ejecute el programa e ingrese el valor 20 para 
la variable A. Al presionar la tecla RETURN apa¬ 
recen los valores y existe un control para continuar 
la repetición de ingresos. El control es efectuado 
mediante la tecla RETURN. 

La siguiente foto ¡lustra la pausa controlada 
que permite leer los valores calculados a partir del 
valor inicial de la variable A. 



*0 M JO 

iíne« 4© ** s 
tloe* so o* o 
i **** e© ©s J* 
unta y© os 


* valor J 
i valor 4o O 
t valor' C 

* valor 4* * on 
? valor 40 • o© 
i valor 4o C oa 
voto© ® «. 

wiw W C 


.ncsiONt 3SRRZ2 w cáfttmu» 


Observe la importancia del mensaje editado en 
la parte inferior de la pantalla. 

Presione la tecla RETURN y observará en pan¬ 
talla lo siguiente: 



En consecuencia, se encuentra resuelto nues¬ 
tro problema del número anterior. 

Pero ahora surgen nuevas interrogantes para 
usted, amigo novato, las que son muy importan¬ 
tes para el progreso futuro: 

1. ¿Qué significado tiene el INPUT PAUSAS? 

2. ¿Qué significado tiene el blM PAUSAS? 

Ocuparemos el programa residente en memo¬ 
ria. Digite la letra C cuando aparezca el mensaje 
de ingresar un valor para la variable A. 



Presione la tecla RETURN. Aparecerá el si¬ 
guiente mensaje de error: 



Identifique el tipo de error en la tabla de 
errores (consultar al respecto el apéndice del 
libro ABC No.1 de MUNDOATARI o bien en 
la Tarjeta de Referencia). 

Con esta demostración de su ATARI, puede 
usted apreciar que hay diferentes tipos de varia¬ 
bles: 

1. NUMERICAS: por ejemplo la designada por 
la letra A en nuestro programa. Elias permi¬ 
ten almacenar sólo números. 

2. ALFANUMERICAS: por ejemplo PAUSAS, 
que almacena una cadena de caracteres o 
string, los cuales pueden ser números o le¬ 
tras. 

En el próximo número iniciaremos un estudio 
elemental y básico de las variables alfanuméricas. 

Hasta entonces, amigos. 0 
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JUEGO DEL MES: 

POLOLEANDO 


La trama del juego de este mes corresponde 
al tierno romance de nuestro grillo CLVDE, quien 
al ver por primera vez a MARGARITA se enamora 
perdidamente de ella y comienza su aventura. 

Amigo lector, para conocer la trama y el des¬ 
enlace de esta historia de amor debe tipiar cuida¬ 
dosamente el listado que sigue. Este considera re¬ 
cursos interesantes de programación. 

La memoria requerida para el juego es de 32 
Kb, por lo tanto aquellos lectores que poseen un 
600 XL se encuentran eximidos de la prueba. 

Los lectores de Santiago pueden visitar nues¬ 
tro local (Av. 11 de septiembre 2305, local 18) y 
traspasar este programa a una cinta o diskette 
personal, sin costo extra. 

Los problemas de digitación o ejecución pue¬ 
de solucionarlos escribiendo a: Juego del Mes, 
MUNDOATARI, casilla 458-11, Santiago. 

Existe ahora una tarea pera nuestros fieles 
amigos de la columna. ¿CUAL? 

La tarea consiste en describir sus experiencias 
con este juego y las impresiones personales de su 
computador ATARI. 

Hay premios para todas las cartas que ustedes 
nos envíen antes del 30 de noviembre, en otras pa¬ 
labras, es una forma de ganar sus Regalos de 
Pascua. 

Hasta el próximo mes. 


180 REM POLOLEANDO 

140 ? "NINICIALIZANDO." 

150 DIN 0$ ti),F$(CINT (ADR(D$)/2048)+1) 
*2048~ADR(D5)-1),DOS (1024),P05(255),P1 
5(256).P2S(256),P35(256) 

0 168 DIM BL$ (13),CR$(12),CR J$(12),CRF1$ 
U (12),CRF2$(12) 

161 DIM CRM$(12),STK$(32),HT1$Í12),HT2 
5(12),5ND5(173):HI=ADR(DD$)X256 
170 DIM GF1$(15),GF2$(15),DRP$(13),CUR 
5(12),C0LDR$(4)¡GFlS^’HIXLMXPOXTUXXXX" 
:GF2$="JKXN0XR5XVHXZ£X» 

180 REM RUTINA J0Y5TICK 

190 RESTORE 20O:FOR J=1 T0 32:READ A:5 

TK$(J,J)=CHR$(A):NEXT J:STK=ADR(5TK$) 

200 DATA 104,173,132,2,240,12,173,207, 

6,240,28>169,0,141,207,6,240,13,173,20 

7,6,208,8,173,120,2,41,3,141,207,6,96 

210 REM DATA SONIDOS 

220 RESTORE 230:FOR J=1 T0 1?3:READ A: 

SND$(J,J)=CHR$(A):NEXT J 

230 DATA 0,60,3,70,3,80,3,90,3,100,3,1 

00,3,0,0,108,10,108,10,108,10,81,20,64 


,10,108,10,108,10,108,18,81,20 

240 DATA 64,10,0,38,53,10,85,10,53,18, 

96.10.53.10.96.10.53.18.91.20.102.10.1 
08,10,108,10,85,20,72,18,108,10 

258 DATA 108,10,188,10,85,20,72,18,0,5 
0,53,15,47,5,53,10,60,10,64,10,72,10,8 
1,20,40,20,0,0 

260 DATA 121,40,91,30,91,10,91,80,121, 

40.81.30.96.10.91.80.121.40.91.30.72.1 
0,60,40,72,30,91,10,91,40,96,30 

270 DATA 91,10,81,80,0,0,243,40,243,40 
,243,18,243,40,204,40,217,10,217,40 
280 DATA 243,10,243,40,255,10,243,60,8 
,8,47,10,72,10,60,10,64,10,72,10,64,10 
,60,10,72,10,0,0 

290 H5-INTÍADR(5ND$)/256)íPOKE 209,H5: 
LS=ADR(5ND5)-H5*256:P0KE 288,L5:S0UND 
3;0|0|6 
300 DIF=i 

310 REH &D$ PANTALLA 

320 DD$ (1) ="0": DD$ (448) = ,, e n : DDS (2) =DD$ 

:DDS(449)=CHR$(0):DD$(828)=CHRS(0):DD$ 

(458)=DDS(449) 
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TIPIANDO: continuación 


330 LINE1=ADR(DD$)*513!HL=INT(LINE1/Z5 
6):LL=LINE1~HL*256:P0KE 8B,LL:P0KE 89, 
KL 

340 PDKE 559,0;POKE 186,PEEK(748):GGSU 
B 1148:GOSUB 1330 .-GOSUB 1530 
350 GRAPHICS 0:POKE 559,0:FOR X=53248 
TO 53250:POKE X,1:NEXT X 
355 POKE 756,START/256:G05UB 1380:POKE 
559,0iPOKE 568,0:POKE 561,6:P0KE 559, 
34:G0SilB 1710 

360 A=U5R(1670):VERT=8:GOSUB 1788:POKE 
88,LL:POKE 89,HL:POSITION 12,0:? DIF: 
BRO=0 

370 POKE 788,68:POKE 709,254:POKE 710, 
86:POKE 711,44:P0KE 712,72:P0SITI0H 16 
,7:? " pololeando " 

388 POSITION 2,0:? "nivel ":RESTORE 

382:F0R J=1 TO 4:READ A:C0LDR$(J,J)=C 
HR$(A):NEXT J 
382 OATA 228,36,4,230 
398 DOS(613,652)="YYYYYYXXXXXYYYYYYXXX 
XXYYYYYYXXXXXVYYYYY" 

400 00$(653,692)= ,, YYYYYYXXXXXVYYYYYXXX 
XXYYYYYYXXXXXYYYYYY" 

418 00$(693)="_4XK_4XK_4"I00$(769)="ab 
XXabXXabX" 

420 GN=0:MFLG=0:GIFT=0:OROP=0:00$(552) 
="XXXXXXXXXXXXXX":00$(592)="XXXXXXXXXX 
XXXX" 

430 POKE 1622,15:00$(712)=GF1$:DD$(788 
)=GF2$ 

440 POSITION 16,7:? "SELECT dif o BOTO 
r'lPSKE 77,0 

450 IF STRIG(0)=0 THEN 450 
460 KEY=PEEK(53279):IF 5TRIG(O)=0 THEN 
500 

470 IF KEY<>5 THEN 460 
488 DIF=DIF+1:IF 0IF>7 THEN DIF=1 
498 POSITION 12,0:? OIF:GOSUB 1780:GOT 
O 468 

500 POSITION 16,7:? " POLOLEANOO 

": G0SI1B 1000:00$ (712) ="XX": 00$ (788) = 
"XX" 

510 A=USR(ADR(STK$)) 

520 IF GIFT=i AND YP0S=187 ANO P>100 A 

NO P<134 THEN G05UB 820¡GOSUB 790 

530 IF PEEK(1743)=0 THEN FLAG=0 

540 IF FLAG=1 THEN 580 

550 5=PEEK(1743):IF 5-2 OR 5=1 THEN FL 

AG=1:P8$ÍYP05)=CRJ$:POKE 53767,170:POK 

E 1591,1:F0R J=1 TO 20:NEXT J 

560 IF 5=2 ANO VERT>0 THEN POKE 1767*V 


ERT,0:POS(YPOS)=BL$:YP05=YP0S-16:P0$(Y 
POS)=CR$:VERT=WERT-1:POKE 1767*VERT,1 
570 IF 5=1 ANO MERT <8 THEN POKE 1767+V 
ERT,0:POS(YPOS)=BL$:YP05=YP0S*16:P8$(Y 
P05)=CR$:VERT=VERT*1:POKE. 1767+VERT,1 
588 P=PEEK(1791):IF P>190 OR P<60 THEN 
POKE 1767+VERT,0:GOTO 710 
590 POKE 53278,0 
600 FOR J=1 TO 10:NEXT J 
610 IF PEEK(53252)>0 THEN POKE 1767*VE 
RT,0:GOTO 710 

620 IF YP0S=59 ANO P>100 ANO P<134 THE 
N POKE 1767+VERT,0:GOTO 840 
638 JP05=JP05*DELJ:IF JPOS>RTLJ OR JPO 
5<LLJ THEN OELJ=-OELJ:JPOS=JPOS*2XOELJ 
640 POKE 53250,JPOS 

650 0RCNT=0RCNT-1:IF 0RCNT<1 THEN ORCN 
T=10*5*(10-OIF):OPO 5=58:G0SU8 958:P3$( 
OPOS)=ORP$:OROP=l:POKE 53251,JPOS 
660 IF 0R0P=1 THEN P3$(OPOS)=BL$:OPOS= 
0P05*0ELTA:P3$(OPOS)=DRP$:SOUNO 1,DPOS 
-40,10,10 

670 IF OPOS>240 THEN GOSUB 820:DPO5=50 

680 IF PEEK(53260)=8 THEN POKE 1767*VE 

RT,0:GOTO 710 

690 GOTO 510 

700 REH 

710 GOSUB 820 

720 P0$(YPOS)=BL$:YP0S=YP0S*6:P0$(YPOS 
)=CRF1$:SOUNO 0,YPOS,10,10:FOR J=1 TO 
30:NEXT J 

730 P0$(YPOS)=BL$:VP©5=YP05+6:P0$(YPOS 

)=CRF2$:SOUNO 0,YPOS,10,10:FOR J=1 TO 

30:NEXT J:IF YPOS<240 THEN 720 

740 SOUNO 0,0,0,0 

750 BRO=BROU:IF 8R0=4 THEN 1030 

760 J=4*(BR0~1):00$(693*J,696*J)="XXXX 

"S 00$(769*J,772*J)="\I^X" 

770 VERT=8:GOSUB 1710:POKE 1791,120:P0 
KE 1622,15:GOTO 510 
780 REH 

790 GIFT=0:GN=GN*1:GOSUB 1000:OO$(712* 
GN»3)="XX":00$(78B*GN*3)="XX" 

808 RETURN 
810 REH 

820 SOUNO 1,0,0,0:P3$(OPOS)=BL$:POKE 5 
3251,0:OROP=0:RETURN 
830 REH 

840 GOSUB 828:POKE 1791,118 

850 IF GIFT=0 THEN GOSUB 920 

860 IF MFLG=1 THEN 1090 

870 FOR K=1 TO 10:P1$(YPOS~14)=HT1$ 
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TIPIANDO: continuación 


880 FOR J=15 TO 0 STEP -1¡50UNI> 0,28,1 

0,J:NEXT J:Pl$CYP05-\14)=HT2$:FOR J=i T 

0 15¡NEXT J:NEXT K 

890 IF 5TRIGC03-i THEN 890 

900 P0$ ÍYP05I=BL$:PlS CYP05-14I=BL$:5=1 

.‘GOTO 580 

910 REH PRINT GIFT 

928 GIFT=i:00$ C552I =GF1$ C1,IGNU)*31 1 0 

D$Í592)=GF2$C1,CGN+1}*3)¡IF GN=4 THEN 

MFLG=1 

938 RETURN 

940 REN 

950 R=INT(RN0C0)*4) ¡RESTORE 960+10*»¡F 
OR J=1 TO 13IREA0 A:0RP$(J,J1=CHR$CA): 
NEXT J:POKE 787 , A5C(COL0R$ f R+i)) 

952 RET1IRN 

980 DATA 20,72,34,28,74,40,8,127,127,6 
2,62,28,28 

970 DATA 0,0,80,112,112,112,112,112,12 
0,126,94,8,0 

980 0ATA 0,0,48,96,64,127,127,64,224,2 
24,0,0,0 

990 0ATA 60,24,24,24,60,126,223,215,24 

7,255,127,126,60 

995 REH 

1000 POKE 1622,155SPOKE 707,92¡POKE 53 

251,124+12*GN¡FOR J=1 TO 5:P3$C285)=CU 

R$¡FOR K=1 TO 30SNEXT K 

1010 P3$(205)=BL$:FOR K=1 TO 30¡NEXT K 

¡NEXT J¡RETURN 

1020 REN 

1830 POKE 1622,131:POKE S3277.01FOR J= 
53261 TO 532641POKE 1,0¡NEXT J.’SRAPHIC 
S ÍOIPOSITION 4,3¡? N6;"SUS priHOS " 
1040 POSXTION 6,41? «6;"se fueron" 

1050 POSXTION 3,71? »6;“PRESIONE Start 
"¡POSXTION 5,o¡? #6;" y parte " 

1060 IF PEEK (53279) 06 THEN 1060 
1070 SOTO 350 
1000 REH 

1090 POKE 1622,93¡FOR L=0 TO 6¡FOR K=0 
TO 3¡P05=64*L+16«K í00$ ÍP05+1)="XXKKcd 
XXXXc4XXXX"¡NEXT KlNEXT L 
1100 FOR J=1 TO 1000:NEXT J 
1110 POKE 53277,O¡FOR J=53261 TO 53264 
¡POKE J.OiNEXT JlERAPHICS ÍOIPOSITION 
3,3:? tt6;” y vivieron " 

1120 POSITXON 1,4:? «6j“Feiites sienp 

re "¡soto loso 

1130 REH 

1140 DIH ZZ$(32)¡RESTORE 1150¡FOR 1=1 
TO 32¡REA0 A¡ZZ$(X)=CHR$(A)¡NEXT I 
1150 OATA 104,104,133,204,104,133,203, 


104,133,206,104,133,205,162,4,160,0 
1160 OATA 177,203,145,205,136,208,249, 
230,284,230,206,202,200,240,96 
1170 POKE 106,PEEK(106)-5:5TART=(^EEK( 
106)*1)*256 

1180 A=USR(AOR(ZZ$),57344,START):RESTO 
RE 1200¡FOR I=5TART*512 TO START*807:R 
EAO A¡POKE I,A¡N£XT I 
1190 RETURN 

1200 OATA 0,0,0,0,0,0,0,170,0,63,50,57 
,58,63,63,170,0,252,172,108,172,252,25 

2.170 

1210 OATA 0,255,170,05,170,255,255,170 
,0,61,33,18,33,255,05,170,0,191,239,25 

1.254.255.255.170 

1220 OATA 0,255,215,215,215,190,235,17 
0,0,254,251,239,191,255,255,170,0,1,32 
,184,32,12,3,16 

1230 OATA 64,208,64,224,184,224,192,19 
2,116,28,3,0,0,0,0,0,208,238,248,192,1 
92,192,192,192 

1240 OATA 0,0,0,0,2,2,3,3,0,0,0,0,128, 
120,192,192,13,55,219,222,223,55,13,3 
1258 OATA 112,220,247,247,247,220,112, 
192,8,0,0,58,234,234,233,229,0.0,0,40. 
234,170,154,86 

1260 OATA 233,233,57,58,58,14,14,13,86 
,90,90,104,104,160,168,128,0,3,12,48,1 
92,192,48,12 

1270 OATA 48,204,3,3,3,12,48,12,12,3,1 

2,40,14,2,2,0,3,3,3,12,32,160,160,128 

1288 OATA 0,0,0,0,0,0,0,0,233,181,173, 

103,222,122,94,107,2,10,2,4,16,16,4,1, 

120,160,128,16,4,4,16,64 

1290 OATA 0,0,3,15,15,204,63,15,0,0,O, 

207,204,255,255,195,0,0,240,48,48,48,2 

48,240 

1300 OATA 0,0,84,5,17,5,1,5,0,0,21,88, 

68,80,64,80,17,65,1,4,4,20,0,0 

1310 OATA 68,65,64,16,16,20,0,0,40,190 

,179,176,176,44,11,2,80,244,52,52,52,2 

88,64,0 

1328 REH 

1330 OXH 081$(75)¡RESTORE 1340¡F0R J=1 
TO 75¡REA0 A:VBI$(J,J)=CHR$(A)¡NEXT J 
¡VBI=AOR(VBI$)¡RETURN 
1340 OATA 216,162,0,160,0,222,240,6,16 
,42,189,224,6,157,240,6,189,232,6,240, 
10,24 

1350 OATA 173,255,6,125,248,6,141,255, 
6,24,185,16,6,125,216,6,153,16,6,221,2 
08,6,208,6 

1360 OATA 189,280,6,153,16,6,200,200,2 
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TIPIANDO: continuación 


•8,232,224,7,144,281,172,255,6,141,8,2 

•8,32,57,6,32,88,6,76,98,228 

1378 REM 

1388 RESTORE 1398:FOR J=1536 TO 1679íR 

EAD AiPOKE J,A:llEXT J 

1398 DATA 112,112,112,78,8,8,68,2»,8,6 

8,68,8,69,188,8,69,8,8,69,88,8,69,128, 

8.69.288.8.69.8.8.69.88.8 

1488 DATA 69,128,8,69,148,8,68,188,8 
1418 DATA 68,8,8,78,48,8,68,8,6 
1428 DATA 8,8,8,8,8,8,172,55,6,248,23, 
286,56,6,16,18,177,288,141,6,218,288 
1438 DATA 177,288,248,5,141,56,6,288,1 
52,141,55,6,96 

1448 DATA 8,8,172,86,6,248,48,286,87,6 
,48,17,169,13,285,87,6,144,3,173,87,6, 
9,160,141,5,210,288,18,177, 208 
1458 DATA 141,4,218,288,177.288,248,5, 

141.87.6.288.152.141.86.6.96.184.168.8 
,162,8,169,7,76,92,228 

1468 RESTORE 1470:FOR J=154i TO 1583 S 
TEP 3:READ A:POKE J,HI+A:NEXT J 
1478 DATA 2,2,2,2,8,8,8,8,1,1,1,2,2,3, 
3 

1488 RESTORE 1498:FOR J=1736 TO 1791:R 
EAD AiPOKE J,A:NEXT J 
1498 DATA 8,88,128,288,8,88,128,8,16,6 
4,144,192,16,64,144,8,1,255,1,255,1,25 

5.1.8 

1588 DATA 28,12,9,12,15,18,21,8,8,8,8, 
8,8,8,0,8,28,12,9,12,15,18,21,8,252,4, 
252,4,252,4,252,128 

1518 HV=INTÍVBI/2561iPOKE 1674,HViPOKE 
1672,081-256*80 
1528 RETURN 
1525 REN 

1538 RESTORE 1548iFOR J=1 TO 12:READ A 

iCR$íJ,J)=CHR$CAI iNEXT J 

1548 DATA 231,68,98,68,24,68,98,153,24 

,36,36,182 

1558 RESTORE 1568:FOR J=1 TO 12iREAD A 

iCR J$IJ,Jl=CHR$(Al iNEXT J 

1568 DATA 66,36,68,98,68,153,126,24,24 

,68,66,195 

1578 BL$(1)-CHRS(8)iBL$(131=CHR$ (81 iBL 
$(21=BL$ 

1588 RESTORE 1598 iFOR J=1 TO 12iREAD A 

iCRF1$íJ,Jl=CHR$(A)iNEXT J 

1598 DATA 195,36,68,98,68,25,62,88,156 

,36,38,96 

1688 RESTORE 1618 i FOR J=i TO 12 i READ A 
iCRF2S(J,J)=CHR$(A)iNEXT J 


1618 DATA 195,36,68,98,68,152,124,26,5 
7,36,188,6 

1628 RESTORE 1638iFOR J=1 TO 12:READ A 
:CRK$(J,J)=CHR$(A):NEXT J 
. 1638 DATA 66,165,68,98,36,24,126,153,6 
8,126,36,182 

1640 RESfORE 1650:FOR J=1 TO 12:REftf) A 

:HT1$(J,J)=CHR$(A):NEKT J 

1658 DATA 8,216,248,248,112,32,0,27,31 

,11.14,4 

1668 RESTORE 1670¡FOR J=1 TO 12:READ A 

:HT2$(J,J)=CHR$(A):NEXT J 

1678 DATA 8,27,31,31,14,4,0,216,248,24 

8,112,32 

1688 RESTORE 1698:FOR J=1 TO 12:READ A 

:CURS(J,Jl=CHR$(Al:NEXT J 

1698 DATA 68,238,254,254,254,254,254,1 

24,124,56,56,16 

1788 REH 

1718 P0$(11=CNR$(81:P8$(2561=CHR$(81:P 
8$(21=PB$:VP05=187:P8$(VP0S1=CR$ 

1728 P15(11=CHR$(81:Pl$(2561=CHR$(81 iP 
1$(21=P1$:P2$(11=GHR$(81!P2$(2561=CHR$ 
(81:P2$(21=P2$ 

1738 P3$(11=CHR$(81:P3$(2561=CHR$(81:P 
3$(21=P3$iPl$(681=CRN$:P2$(441=GR$:JPO 
5=188 .* DEL J=3: RTL J=280: LLJ=58: DELT A=6 
1748 POKE 54279,HIiPOKE 559,62iPOKE 53 
277,3:P0KE 53248,128iPOKE 784,116:POKE 
53249,126iPOKE 785,92 
1758 POKE 53258,188: POKE 706,28: POKE 7 
87,8: POKE 623,1 
1768 RETURN 
1778 REN 

1788 DD$(11=”•“:DD$(4481= n <r‘:DD$(21=DD 
$ 

1798 FOR J=1768 T8 1766:SPEED=RND(8)*( 
9-DIFl*4F(7-DIFl:IF DIF>3 THEN SPEED=S 
PEEDK1.8 

1792 POKE J.SPEEDiNEXT J 

1888 FOR L=B TO 6:RESTORE 1858*18*L:RE 

AD F$:FOR K=8 TO 3 

1818 P0S=64«LH6*X:DD$(P0S*1DCF$ 

1828 IF DIF>3 THEN DD$(P0S«91=F$ 

1840 NEXT KiNEXT L:RETURN 

1850 DATA ACB 

1868 DATA EOS 

1878 DATA DDD 

1888 DATA 1121 

1898 DATA EFC 


DDD 


1910 tATA EFC 
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PROGRAMAS 



90 NEXT CT 

108 ? DESEAS OTRA 5 O M" 

110 IF PEEK(764)=62 THEN POKE 784,255: 
COTO 18 

128 IF PEEK(784)=35 THEK ? "CHAO...":E 

ND 

136 GOTO 118 

588 ? "NO ESCRIBAS LOS NUMEROS CON PAL 
ABRAS' 1 tFOR G=0 TO 588: NEXT C 
510 COTO 18 


Avanzando 


Este mes continúa la columna con colabora¬ 
ciones de lectores de MUNDOATARI, que nos 
han enviado sus programas con todos los requi¬ 
sitos pedidos. 


CUESTIONARIO 


Este programa permite demostrar la capaci¬ 
dad de interacción con nuestro ATARI. Su autor 
es Claudio Millapel Muñoz, de Puerto Montt. 


X MULTIPLICAS 2*5 
LO SUMAS CON 38 Y L 
O DIVIDES POR 2? 



__ 


VUELTA A MULTIPLICAR 

Nuestro deseo de estímulo permanente se 
demuestra al publicar otra versión de las tablas 
de multiplicar. Su autor es Manuel Andrés Báez. 


8 GRAPHICS 2*16:POKE 752,1 

1 REM PRESENTACION 

2 ? ttfi;"MULTIPLICACIONES" 

3 ? 116;"POR:MANUEL BAEZ" 

4 FOR C=8 TO 388:POKE 788,INT(RNP(B)*2 
80*3):NEXT C 

10 ? "COMENZO":GRAPHICS 8:POKE 718,15 
:POKE 789,0iPOKE 752.UP0KE 82,0 

11 2 "QBE TABLA DESEAS";:TUAP 508 
20 INPUT T 

40 PRINT "DESDE QUE NUMERO HASTA «HE N 
UMERO " 

50 PRINT "PRIICRO";:INPUT PN 
60 PRINT "SEGUNDO",*:INPUT SN 
70 PRINT "DE CUANTO EN CUANTO";:INPUT 
ST 

72 PRINT "AOUI ESTA LA TABLA DEL ";T 
78 FOR CT=PN TO SN STEP ST:TXCT=T*CT 
80 ? T; M x";CT;"=";TXCT 
85 FOR E=0 TO 108:NEXT E 


1 REM CLAUDIO MILLAPEL MUÑOZ 

2 REM RIO COLEGUAL tt 12 

3 REM POBL. PICHI PELLUCO 

4 REM PUERTO MONTT 

7 DIN A$(20B),B$(200).C$(200),D$(2O0), 
L$(288) 

10 C=0lFOR 1=1 TO 3 
20 READ A$,B$,C$,D$ 

30 PRINT "N" 

40 GRAPHICS 2 
50 PRINT U6;A$ 

68 INPUT L$ 

70 IF L$=B$ JUEN LCT C=C*1:PRINT "K":C 
RAPIfICS 2:PRINT U6;D$:F0R J=1 TO 2000: 
NEXT J:GOTO 90 

80 PRINT "8":GRAPHICS 2:PRINT N6;C0:PR 
INT W8;"LA RESPUESTA ES :",B$:F0R J=1 
TO 2000:NEXT J 

90 NEXT I 

91 PRINT "8":GRAPHICS 1 SPRINT «6;"BUEN 
AS :";C:PRINT N6;"MALAS s";2-C:F0R P= 
1 TO 2000:NEXT P 

100 DATA 51 MULTIPLICAS 2*5 Y LO SUMAS 
CON 30 Y LO DIVIDES POR 2?,28,INC0RRE 
CT0,BIEN 
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PROGRAMAS: continuación 


101 DATA CHAL ES LA CAPITAL DE CHILE?, 
SANTIAGO,MO SABES NADA,M!Y BIEN SABES 
BASTANTE DE GEOGBAFIA DE CHILE 
105 DATA CUAL ES LA CAPITAL DE LA X RE 
GION?,PUERTO HONTT,IHP05I8LE,ESTUPENDO 
SE NOTA RUE ERES MNY INTELIGENTE 


MENSAJES POR PANTALLA 

Esta es una rutina muy útil para iniciar pro¬ 
gramas con un bonito mensaje en colores. Su 
creación pertenece a Miry Cornejo Correa. 


CALCULO DE PRESUPUESTO 

Este programa simple de aplicación muestra 
la versátil idací de nuestro ATAR I, con la creación 
de Cristian Arenas Aragón. 



X«fc*nr **»TO w ARRttNDOltWBO 
(ICUM I»* lUElt»**» 

IMCRtSE I.ASTO Dt AGNAl.tlTO 
INCGRCSt 6AS10 Dt GASítUO» 
IHCRLSt GASTO Dt tCt-CfOROIT*«G© 
)N(»ISC CASTOS COMUNCSltAODD 

IRCRCSC fclHERO DISPONIOLtlTTODOO 



1 REH PROGRAMA: RUTINA DE MENSAJE 

2 REH MIRY CORNEJO CORREA 

3 REM SOCIO N 06-7510001 

4 REM MILLA LOS CISNES * PATACON 567 

5 REM * CUBICO • Mil REGION • 


10 ? "N" 

20 CLR :DIM X$«120),H$«20).P$«20),Y$«2 
0), Z$ C201, M$ (115) 

30 MS= M - 

40 H$=" 1 RUTINA DE MENSAJE PA RA SER A» 
APIADO A SUS PROMANAS L PARA ¡BEEBfiT* 


RI 


3T.ART 


PARA EMPEZAR 


60 X$(LEN(X$mi=H$ 

70 IF LENCXSl<20 THEN FOR C=1 TO 20-LE 
N(X$)tNEXT C 

00 DIM A$*LEN«K$)),C$«LEN(X$)):AS=N$ 


50 GRAPHICS 10:Y$=MS 

IDO POSITION 0,1:? N6jMTC1,Z0):P$=H$«2 

) :p$clencp$)UI=hS:M$=pS 

110 POSITION 0,7:? N6;Y$«i.20):Z$=Y$(2 

I:Z$ CLEN(Z$)+i>"Y?:Y$=Z$ 

120 POSITION o,»:? MS}A*C 1 .* 0 >!C$=A$C 2 
I:CS CLEN(C$1 *11=A5:AS=CS í K=PEEK «532751 
130 FOR T=1 TO 40:PONE 77,0:SETC0L0R I 
NT (RND «01*41, INT (RND «01 *151,0! IF K O 6 
TNEN 100:IF K=6 THEN 140 
140 GRAPHICS 0:? " EMPIEZA PR06RAMA 
PRINCIPAL":FOR H=1 TO 500:NEXT H:C0T0 
10 


45 REM «* CRISTIAN ARENAS ARAGON ** 

SO PONE 710,O:PONE 752,i:P0K£ 16,64:P0 
KE 53774,64 


100 ? ••*":? " 


Cid CUtO 


MGHlUa»! 



140 ? 

200 ? 

250 ? " INGRESE GASTO DE ARRIENDO:";:I 
NPUT A!? 

300 ? " INGRESE GASTO DE LUZt";:INPUT 

•:? 

500 ? " INGRESE GASTO DE AGUA:";:INPUT 


c;? 


700 ? INGGRESE CASTO DE GAS:**; :INPHT 
D:? 


500 ? " INGRESE GASTO DE TELEFONO:";:I 


NPUT F:? 

1010 ? " INGRESE CASTOS COMUNES:";9INP 
UT F:? 

1100 R=A*B*C*D*E*F 
1250 ? 

1300 ? “ INGRESE DINERO DISPONIBLE:"; 
1350 INPHT N:? 

1400 IF TOT<=H THEN 1500:GOTO 1600 

1500 K=H-N:IF K<1 THEN Y=KtK=0:G0T0 17 

00 

1600 Y=0 
1700 ? **N" 

1000 POSITION 0,8:? "TOTAL A PAGAR 9"; 
R 

1500 POSITION 8,12:? "SALDO A FAMOR 9" 

;k 

2000 PGSXTI0* S,i6t? "SALDO EN -CONTRA 
:";Y 

2100 POSITION 2,20:? " Presione mími 
I para realizar otro calculo." 

2200 IF PEER (53275) 06 THEN 2200 
2300 GOTO 50 
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UTILITARIOS 


4e NUM~0:REM Asigna variable NUM coko 
contador y la inicializa a cero 
45 ? CHR$(125) ¡P05ITI0N 0,4:? 'WLIüM) 
9 una cantidad mayor que 133 
caracteres" 

48 P05ITION 5,6:? "PRESIONE EEBH32 al 
finalizar" 

50 G05UB 200:REM Subrutina de Ingreso 
por teclado 

60 ? CHR$(125):P0KE 84,4:? A$:REM edit 
a el contenido de A$ 

70 POSITIOH 0,0!? " INGRESARON "}LENCA 
5);" caracteres en A$ " 

80 PONE 18,0:POKE 19,0 
90 IF PEER(191<2 THEN 90 
100 GOTO 10000 

200 REM Subrutina Ingreso por teclado 
210 A$="":REM Inicializa AS para un 5 
String vacio 

220 6ET NI,A:REM Asigna a variable A 
el valor de ATASCII para tecla pre 
sionada 

230 IF A<>126 THEN 280:REM Verifica si 
tecla presionada es l>nfüH 
240 IF NUM=0 THEN 220:REM Elimina el 
borrar cuando el STRING es nulo 
250 NUM=MUM-l:IF NUM=0 THEN A$=“":GOTO 
300:REM resta 1 a variable NUM para 
borrar el carácter del STRING 
260 A$=A$(1,NUM)¡GOTO 300:REM Borra el 
carater de String,usa subscripts 
280 IF A=155 THEN ? ¡RETURN :REM Veri¬ 
fica si tecla presionada es LEUU2Ü 
290 NUM=NUM+l:REM Incrementa en 1 a va 


riable contador 

295 AS(NUM)=CHR$(A):REM Aplica función 
CHRS para ingresar el carácter co¬ 
rrespondiente a ATASCII en 5TRING 
300 ? CHRS(A);:REM Edita en pantalla e 
1 carácter ingresado a 5TRIN6 
310 GOTO 220:REM continua ingresando 
caracteres sin limite 


10000 GRAPHICS 0:POKE 82,0 
10010 P05ITI0N 0,8:? " 


e encuentra en RAM 


MODIFICAR UTILIZAR etc 


10020 END 


este programa s 


£E 


H 


Ejecute e ingrese la cantidad de caracteres que 
desee, y la dificultad habrá sido superada. 

Hasta el próximo mes, con una nueva rutina 
en el manejo de string. • 


PARTICIPANDO 

Este rnes recibimos la contribución de tres 
amigos del ATARI 800, provenientes de Maipú, 
que cooperan con un túnel maravilloso para pe¬ 
netrar en las profundidades gráficas de tu ATARI. 

Ellos son: Andrés Ayala y Boris Vásquez del 
Colegio Peter College y Cristián Jaque del Colegio 
Don Orione. 

Para salir de la duda digite cuidadosamente 
el siguiente listado: 


5 REM PROGRAMA EL TUNEL 

10 GRAPHICS 8 

20 DEG 

30 COLOR 1 

40 TRAP 10 

50 5ETC0L0R 2,0,0 

60 ? «QUE CLASE DE TUNEL QUIERES?(401 
28) " 

70 INPUT N 
80 FOR A=1 TO 75 

90 PLOT SIHIN#A)NA+155,C05CIHHD#A*78 
95 SOUHD 3,A74,12,8!S0UND 0,N/2,12,4 
180 DRAHTO 5INCN*CAU))*AU55,C0SCN*CA 
+1))*A*78 

105 FOR 1-15 TO 25:SOUHD 1,1*2,10,10 
107 REXT I 
110 NEXT A 


Para construir una estrella digite 215, 20 y 
podrá apreciar una como en la foto: 



Agradecemos la visita de este grupo de ami¬ 
gos y esperamos que otros sigan su ejemplo y ga¬ 
nen un juego para su colección. 
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DISKETTE 


Dominando 
la 1050 


Iniciamos la columna con la primera interro¬ 
gante planteada en el número anterior: 

— Modificar el listado que edita al AMIGO en 
pantalla, ahora para un grupo de 50 amigos. 

Primero debemos modificar el programa Ciclo 
ingreso de registros de la página 17, en la linea 40, 
para abarcar los 50 amigos. 

Ejecute el programa para crear un archivo en 
el diskette con los 50 amigos. El esquema siguiente 
¡lustra lo ejecutado: 



50 


Ahora, para recuperar los 50 registros desde 
el diskette hacia la memoria digite el listado si¬ 
guiente: 


IB »IH L0C$f481,CAMPOSÍ38),RS(1) 
2» REG=1:CAMP05=5:CI1EMTA=8 
3088 GLOSE #2 
3805 TRAP 3108 

3810 OPER II2,4,B, ,, 0:AMI605.0AT ,, 


3828 CRAPHICS 8:P0SITI0R 8,8:? 


á 1050 


HUNfrOATARI 


0KE 82,0:P0KE 752,1 


3025 CüE«TA=CUENTAfl:lF CUENTA)CAMPOS 


TNEN 3085 

3030 INPUT U2 # L0C$ 

3035 RESTORE 3890*CUENTA:REAP CAMPOS,L 


INEA 



3040 P05ITI0N 0,LINEA:? CAMPOSíPOSITIO 

N 9,LINEA:? #, : M 

3050 P0SITI0N 10,LINEA:? L9C$ 

3080 GOTO 3025 
3085 POSITION 0,20:? 

: INPUT R$ 

3090 CUENTALO :IF R$= f, S vv THEN 3020 

3091 pata m*m .4 

3092 pata uaame 

3093 PATA t»iagiiia:i .8 
3894 PATA 

3095 PATA mW M >12 
3100 ENP 


Ejecute el programa y observará lo que mues¬ 
tra la foto siguiente: 
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□ ISKETTE 


De esta forma se resuelve el primer problema. 

Un desafío con premio para nuestros lectores: 

Indique la líneas con modificación y su co¬ 
mentario correspondiente en relación al lis¬ 
tado del mes anterior, a columna De Byte en 
Byte, casilla 458-11, Santiago. 

La segunda interrogante del mes anterior: 

El listado para amigos internacionales consi¬ 
dera las modificaciones siguientes: 


Digite el listado siguiente: 


10 MN CODES (3) ,NOMBRES (30) ,DIRES(30) , 
CIUDADS(20),TELES(12),PAISS(20) 

20 GOSUB 1000 
40 FOR Jrl TO 10 
45 GOSUB 2000 
60 NEXT J 
70 CL05E DI 
100 END 

1000 0PEN ttl,8 # 0,"D: AMI605IT.DAT":REÍU 

RN 

2000 REH INGRESA UN REGISTRO 
2010 GRAPHICS 0 

2020 PRINT "INGRESA EL CODIGO “:INPUT 

CODES:PRINT til;CODES 

2030 PRINT "INGRESA EL NOHBRE ":INPUT 

NOMBRES:PRINT «II;NOMBRES 

2840 PRINT "INGRESA DIRECCION ":INPUT 

DIRES:PRINT til;DIRES 

2050 PRINT "INGRESA CIUDAD ":INPUT CIU 

DADSSPRINT ttl;CIUDAD$ 

2055 PRINT "INGRESA PAIS ":INPUT PAI 
SSSPRINT ttl;PAIS$ 

2060 PRINT "INGRESA TELEFONO ":INPUT T 
ELESSPRINT til;TELES 
2080 RETURN 


Ejecute e ingrese los datos de 10 amigos inte» 
nacionales. 

Digite el listado siguiente: 


10 DIH LOCS(40) # CAMPOS(30),R$(1) 
20 REG=1:CAMP05-6:CUENTA-0 


3000 CLOSE 112 
3005 TRAP 3100 

3010 OPEN tt2,4,0,"D: AMIG05IT.DAT" 
3020 GRAPHICS 0:POSITION 0,0:? "■ 


1050 


HUNDQÓTaRI 


OKE 82,8:P0KE 752,1 

3825 CUENTA=CUENTA*1:IF CUENTA>CAMP05 

THEN 3885 


3838 INPUT t»2,LOC$ 

3835 RESTORE 3890tCUENTA:READ CAMPOS,L 
INEA 

3848 POSITION 8,LINEA:? CAMP0$:P05ITI0 
N 9,LINEA:? 

3858 POSITION 18,LINEA:? LOC$ 

3888 GOTO 3825 
3885 POSITION 8,20:? ‘1 


DESEÓ VER OTRO 


E 


MIGO DIGITE VN 


:INPUT R$ 


3098 CUENTA=8:IF R$="S" THEN 3828 

3891 DATA 005HDM 

3892 DATA 

3893 DATA 8 

3094 DATA 18 

3095 DATA HSE.iZ 


3896 DATA 
3188 END 


,14 


Ejecute y rescate los 10 amigos internaciona¬ 
les desde el diskette. 

El próximo mes continúa la columna con el 
siguiente desafío: 

¿Cómo moficar el nombre de uno de los ami¬ 
gos ingresados anteriormente? 

Hasta el próximo mes. • 
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Controlando 
la casetera 


SOLUCION DEL NUMERO ANTERIOR 

Hay una razón práctica para considerar la op¬ 
ción de término del programa. En la forma actual 
él se mantiene en un ciclo sin fin , del cual se puede 
salir sólo con BREAK o RESET. 

Digite para este fin las siguientes líneas: 

465?: ?, "¡3] Finalizar" 

490 IF N <1 OR N > 3 THEN 420 
530 ON N GOTO 10, 200, 550 
550 END 


Soluciones hay varias. La nuestra es sencilla y 
práctica. Digite las líneas: 


18 DIM TEL$ (8),CIUDAD*(10) 

20 ? "V: P05ITI0N 2,5 
38 ? "Teleí. 24*'« ' • 1 ■ 1 
40 P05ITI0N 9,5:INPUT TEL* 

50 ? 2? "Ciudad:*** 11 * 111111,1 
60 P051T10N 9,7:INPUT CIUDAD* 
70 ? 2? TEL*,CIUDAD* 


En el número anterior vimos como el uso de 
un menú de selección permite manejar con más 
facilidad las rutinas iniciales de grabación y carga 
de datos. A su vez. la incorporación de una rutina 
de validación de ingresos permite controlar con 
mayor seguridad la información que se envía al 
casete para su almacenamiento. 

Esta vez trataremos otros puntos de optimiza¬ 
ción para el archivo que estamos desarrollando.. 

LONGITUD DE UN CAMPO 

Diyite las próximas líneas para aclarar el pro¬ 
blema: 


10 DIM TEL*C8),CIUDAD*C18) 
20 ? ,, N":P05ITIQN 2,5 
30 ? "Telef.: 

40 INPUT TEL* 

50 ? :? "Ciudad: 

60 INPUT CIUDAD* 

78 ? :? TEL*,CIUDAD* 


Ejecute el programa y conteste las preguntas. 
¿Qué pasará s¡ usted ingresa ahora el número 
032-55420 y la ciudad de Antofagasta? 

Lógicamente esto no hubiera sucedido, si al 
diseñar el programa se hubiera considerado todas 
las posibilidades. Pero aún así, es bastante útil sa 
ber anticipadamente el largo de los campos a ingre¬ 
sar. Sobre todo cuando los programas aumentan en 
número o los maneja otro usuario,interesa hacerlos 
autoexplicativos. 


NOTA: La secuencia de flechas se obtiene de la siguiente 
manera: ESC/CONTROL/1 y ESC/CONTROL/ — 
Los puntos siguientes son apostrofes que se editan 
con SHIFT/7. 



CONTROL DE SALIDA 

Hoy ampliaremos algo un par de recursos que 
usamos en el número anter ior: 


1. CONTROL/1 es un recurso para detener la 
ejecución de un programa o un listado. 
Experimentemos un poco con estas líneas: 


5 ? CHR* C125) 




40 ? PEEKI20);" 
50 GOTO 40 


ara p 
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CASSETTE 


Digite v ejecute el programa. Luego familia¬ 
rícese con el uso de CON I ROL/1. 

2. Otro recurso para esperar al usuario es.el apli¬ 
cado en la línea 300 en el número anterior: 

INPUT A$. 

La clave de esta instrucción consiste en ingre¬ 
sar cualquier información de 1 byte de largo, o 
bien, simplemente presionar RETURN. El contení 
do no interesa tanto como la pausa creada hasta 
que el usuario esté dispuesto a continuar. 

Combinemos ambas técnicas para demostrar 
su utilidad real: 


5 ? CHRS(125) 
16 D1M ASCiJ 


Presione CTRL-l para parar o se 


nuB ' 1 


30 ? " 


Presione RETURN 


Iii * 9 


35 INPUT A$ 

40 ? PEEKC20) ; M 
50 GOTO 46 


para enpezar 



En la foto siguiente se observa el efecto de 
las instrucciones descritas luego de detener el 
programa. 



PRESENTACION 

La información que cargamos desde el casete 
carece de encabezamientos en pantalla. 

La columna Dominando la 1050 eniregó una 
solución en MUNDOATARI No. 5, página 25, a 
base de DATA numéricos y alfanuméricos. Esta 
es igualmente aplicable en nuestro caso. 

Para ampliar el campo de posibilidades de so¬ 
lución ofrecemos otra que se fundamenta en el 
uso de la localización 82 (ver en MUNDOATARI 
No. 0, página 34). Esta localización modifica la 
ubicación del margen izquierdo de la pantalla. 

Incorpore las siguientes líneas al listado del 
número anterior y podrá apreciar el efecto: 


273 PÜKE 02,6:? CHR$(125) 

275 ? "Codigo- ■•:? "Nowbre^ ■':? "Airee 
":? “Ciudad= •*:? "Teief.r " 


270 P0KE 82,0 

280 P05ITI0N 8,1:? C0&ES:? HOMBRES:? D 
IRE$I? CIUDADS:? TELES 


283 ? 


:? 


II 


Presione RETURN 


;:INPUT A$ 



t n la columna 0 el computado! escribe (os 
encabezamientos, y en la 8 los contenidos. 

Como el modelo de archivo que desarrolla 
rrios pretende sei sólo una guía para las necesi 
dades de cada lector, usted podrá aplicar estos 
nuevos aportes a sus propios modelos y en la 
medida que le sean útiles. 

Hasta el próximo mes. • 
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TUTORIA 


♦ 


; --:v 


Guía 

BASIC 



1 REH LORENA PALOMO 

2 REH ZAPADORES 563 

3 REH VILLA LA PIRAMIDE 

4 REM CONCHALI SANTIAGO 

5 REM tt * »* M*MMNNNNMNMMI« 

10 GRAPHICS 7:F0R T=1 TO 4:C0L0R T 
15 DEG 

20 FOR M=0 TO 360 
30 X=80+3O*5INCH) 

40 Y=46+3R*€0SCM) 

50 PLOT 8O,40:DRAHTO X,Y 
60 PLOT X,Y 
70 NEXT H 
80 NEXT T 
90 GOTO 10 


LETRERO 

Contribución de Rolly Garcés Martínez de 
Osorno, que desplaza títulos. 


A continuación veremos nuevos programas 
de contribución de nuestros lectores: 

DIBUJANDO UN CIRCULO 
EN MODO 7 

Contribución de Lorena Palomo de Con¬ 
chalí, Santiago, que recibe de estímulo el progra¬ 
ma 60 rutinas para mi ATAR I BASIC. 

La ejecución del progiama se ilustra en la foto 
siguiente: 




1 REM XKMMMMMM LETRERO MNMK -N N 
1 REM *** POR: ROLLY GARCES « 

3 REM ** PARA HUNDO ATARI *** 

4 REM ** NOVIEMBRE 1987 **** 

5 REM XMNMttMKNMMWICMNXKNM N NX i lN 

6 REH 

18 DIM Q$C98)¡GRAPHICS 1:P0KE 752,1 


TouTT? rctwT 


12 0$="..."»P0KE 718 

,46:P0KE 752,1:POKE 789,1 

11 0$(21)= ,a MIIMDOATAR I. .MOVI 
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TUTORIA 


EMBRE 1987. ":P0KE 752,1 

14 0$CLEHtQ$>UJ=" 

15 FOR TO=i TO l:FOR 1=1 TO 67:F0R 5=8 
TO 15’NEXT 5 

16 50UW> 2,1,14,6:501188 8,I+18,14,2:P0 
KE 712,113:P0KE 752,1 

17 FOR T=8 TO 68:NEXT T 

18 P05ITION 0,18:? tt6>0$(1,1*17) 

19 MEXT I:NEXT TO:SOUND 8,8,8,8:500X8 

2 , 8 , 8,8 

28 FOR T=8 TO 688:NEXT T:M=8 


El premio de estímulo es el programa Inte¬ 
rrupción de Lista de Despliegue de Ses Sistema. 


TEST DE LITERATURA 

Contribución de Amerito Albornoz, de Los 
Angeles. 

La particularidad del programa es que permite 
¡nteractuar con el ATARI acerca de literatura. 



It • 


1 REH TEST LITERATURA 

2 REH AHERICO ALBORNOZ 

3 REN LOS ANGELES 

4 ren momi t xiH B nonnuom 
18 GRAPHICS 8:P0KE 7 18,8:P0KE 752,2 
15 P05ITI0N 8,2:? " tWQIfrEITEfl . 
DIN A$(30),S$(38):RESTORE :FOR A=8 TO 
7:REA8 A$,5$ 

25 POSITION 2,8:? “ QUIEN ESCRIBIO ";A 
$:? :INPUT AS 

38 IF AS=S$ THEN ? :? •■CORRECTO» 

48 IF ASOSS THEN ? "INCORRECTO FUE » 
JSS 

58 FOR T=8 TO 688:NEXT T:? "V'lNEXT A 
68 8ATA ALSINO,PEDRO PRADO 


65 DATA LOS COSACOS, LEON T0L5T0I 
78 DATA EL SOCIO,JENARO PRIETO 
88 DATA EL DUELO,JOSEPH CONRAD 
85 DATA COLHILLO BLANCO,JACK LONDON 
98 DATA TON SAHYER.NARK THAIN 
95 DATA EL PROCESO,FRANK KAFKA 


El premio de estímulo es el programa 40 ru¬ 
tinas para gráficos de Ses Sistema. 


FIGURA MAGICA 


Contribución gráfica en Modo 8, de Cristian 
Ramírez, de Concepción. Utiliza la función ran 
dom, por lo que su ejecución varía y produce fi¬ 
guras diferentes. 


5 REN FIGURA NAGICA 

6 REN CHRI5TIAN RAMIREZ 

7 REH CONCEPCION 

le REN KNMNKKKKKKMKKKNN N 
28 GRAPHICS 8*16 
38 SETCOLOR 1,8,15:C0L0R 1 
48 SETCOLOR 2,RND(8)*16,6 
58 SETCOLOR 4,RND(8)«16,6 
68 REH POSICION PARTIDA Y CTE 
78 X=RND(8)*389.5*4.5 
88 Y=RND(81*185.5*2.5 
98 AX=RND(8)*58*5:AY=RND(8)*58+5 
188 PLOT X,Y 

118 REN VEL. DESPLAZAMIENTO 
128 VX=MX*(159.5~X)/AX:X=X+VX 
138 VY=VY*(95.5-YJ/AY:Y=Y*UY 
148 DRAMTO X,Y 
158 GOTO 128 



El premio de estímulo es el programa Ruti¬ 
nas para USR de Ses Sistema, para que continúe 
con el progreso de su ATARI 800 XE. 
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TUTORIA: continuación 



OTRO CIRCULO 

La ultima contribución es la de Rafael de la 
Maza Rodríguez, quien también ¡ncursiona en 
Geometría. Su estímulo es el programa 60 rutinas 
para mi ATARI BASIC. 



WkOt»uei* (i ftftMO 


1 REM OTRO CIRCULO 

2 REM RAFAEL DE LA MAZA DOMINGUEZ 

4 REM SOR LAURA R05A 261 LAS COMDES 

5 REM SANTIAGO XXXXXKXKXXMXXXXXKMXXX 

9 DIM SSC1I 

10 GRAPHICS 7 

20 5ETC0L0R 4,6,14:COLOR 2 
30 ? M DIBUJANDO UN CIRCULO" 

35 ? "INTRODUZCA EL ORIGEN C40-120I: " 

:INPUT A:TRAP 35 

38 IF A<40 OR A>120 THEN 35 

40 ■> 120 - 601: “ 

¡INPUT B:TRAP 40 

42 IF B<20 OR B>60 THEN 40:? :? 

45 ? "INTRODUCZA EL RADIO t 1- 501: 4 

:INPUT C:TRAP 45 

50 IF C<1 OR 050 THEN 45 

60 FOR F=0 TO 2*3.1415926 STEP 2*3.141 

5926/360 

65 »=ISINlF)*C)FA:E=fC05tF)*C+B) 

70 PLOT D,E:DRANTO A,B 

80 NEHT FtFOR 1=1 TO 300:NEXT I 

90 ? " QUIERE DIBUJAR OTRO CS/N) ?“:IN 

PUT S$:IF 5$="5" THEN 10 

100 TRAP 90:FOR 5=1 TO 599:NEXT S:? " 

CHAO ATARIAMOS" 


SOLUCIONES PREMIADAS 

En este número la columna GUIA BASIC 
premia las soluciones correctas recibidas hasta el 
22 de septiembre con la modificación al progra¬ 
ma RETICULA EN MODO 8. 

Una solución consistía en modificar la lí¬ 
nea 190 por la siguiente: 

190 RL=RL-1.5 


Al ejecutar con esta modificación aparece 
la pantalla como la foto siguiente: 



Los lectores favorecidos son: 

Emilio Arendt, Condell 1283, Valparaíso. 

José Ibarra Castillo, Angamos 124, Lorenzo Arenas 
1, Concepción. 

Manuel E. Gómez Barrera, Woodrow WUson 1621, 
Población Huanhuli, La Serena 

Hermanos García, Correo El Tabo, San Antonio 

Gustavo Muñoz Marín, Francisco Silva 0583, San¬ 
tiago 

WUson Rebolledo González, Aysén 5921, Pobla¬ 
ción O'Higgins 5921, Antofagasta 

Carlos Roco Véliz, Independencia 550, Vicuña, 
Elqui 

Ernesto Acuña Mercier, Apoquindo 7910, Torre 1, 
Departamento 1002, Las Condes, Santiago 

Ximena Barrientos, Chacabuco 0125 , Villa Chena, 
San Bernardo 

Rodrigo Gesswein, José Domingo Cañas 1988, De¬ 
partamento 44, Ñuñoa, Santiago 

Leonardo Duran, San Pedro 241, La Florida, San¬ 
tiago 

Mario Acuña Castillo, Brasil 684, San Carlos 

Cristian Cortés Correa, Punta Arenas 1, Providen¬ 
cia, Santiago 

Juan Pablo Torres Martínez, Teatinos 809-A, San¬ 
tiago 

Fernando Núñez Pizarro, Aquelarre 5350, Villa 
Santa Elena, Santiago 

Eduardo Esteban Carvajal, N., Pasaje Rucar ay 1835 
Temuco. 


Ellos reciben de premio una Tarjeta de Refe¬ 
rencia. 

En general vemos que usteden han sobrepa¬ 
sado con entusiasmo y conocimientos las metas 
iniciales de comunicación. En los próximos nú¬ 
meros habrá nuevos desafíos para ustedes. 
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Aprendiendo los colores 


OTRA NOVEDAD PARA "PEQUES": 

Este mes iniciamos una actividad que intere¬ 
sará a un gran número de lectores y proporcionará 
momentos agradables junto con el logro de un ob¬ 
jetivo específico de aprendizaje. 

Ahora el conocimiento de los colores y la 
interacción con el pequeño de la casa valorizará 
la actividad de nuestro común amigo: el compu¬ 
tador ATARE 

Digite cuidadosamente el listado siguiente: 


68 PRIMT PQKE 752,1 _ 

62 P05ITI0N 5,8¡PRINT 

wimMíia a***" 

64 FOR PAUSA^i TO 1000¡HEXT PAUSA 

65 DIN HOMBRES 18),INTENTOS 18) 

69 OIM TQAOS S180) _ 

70 TQfrOSSr'iaiflaMMSBMM l'l I I'IT ITÍI 


BLANCO N 


EGRO AMARILLO 


II 
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PEQUES: continuación 


ia 


90 POKE 752,1 
100 FOR 1-1 TO 10 
105 GRAPHICS 0:POKE 752,1 
110 REA» HUE,LUH,MOHBRE$ 

120 5ETC0L0R 2,HUE,LUH 
130 FOR J=1 TO 73 5TEP 8 
135 P05ITI0M 16,8:PRINT 11 
140 P05ITI0M 16,8:PRIMT T0D05$CJ,J*7) 
150 POKE 764,255 
155 OPEM ttl,4,0, M K2" 

160 KEY-PEEKC764)¡IF KEY-255 THEM 160 

165 CL05E ttl 

170 IF KEY-33 THEM 218 

180 IF KEY<>12 THEM KEY=255:G0T0 160 

185 G05UB 2510 

190 IF IMTEHTOS=MOMBRE$ THEM GOSÜB 181 
0:POP .-GOTO 220 
200 GOTO 2010 
210 NEKT J 

215 TRAP 1302IF IMTEMTÜ5$<>M0MBRE$ THE 
N 130 

220 MEKT I 

250 POKE 752,02GRAPHIC5 0:EMD 
1010 GRAPHICS líPOSITIOM 0,42? #6j" C 
ORRECTISIHO "2FOR PAUSA^l TO 10002MEHT 
PAUSA:RETURH 

2O10 GRAPHICS líPOSITIOM 0,42? tt6: 
MMüm'Mm] 11 : FOR PAUSAD TO 1080: MEKT 
PAUSA:GRAPHICS 8:P0KE 752,1:G0T0 120 
2500 REH 

2510 INTEMT0$-T0D05$(J,J+7) 

2560 RETURM 

3000 REH *** COLOR DATA 
301 0 DATA 2 ,15,i mHmO ,0,aiH 

3020 DATA 5,6,fM32Q33i#6>2,| 

,15,! 



AZUL 


1,12 


UERDE 


Al ejecutar aparecerá en pantalla lo siguiente: 



Las siguientes instrucciones deben ser entre¬ 
gadas previamente al pequeño: 



— Si el color no corresponde aI texto de pan¬ 
talla, debe presionar la barra espadadora. 



— Si el color corresponde al nombre debe pre¬ 
sionar la teda RETURN. 

El ATARI evalúa la respuesta del peque y 
entrega alguno de los siguientes mensajes: 





Este programa podría ser optimizado si la 
interacción con el usuario fuera con la'voz gra¬ 
bada en la cinta del mismo casete. 

Este es un desafío para nuestros lectores de 
MUNDOATARI. • 
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APLICACIONES 


Clases 1 
con ATARI 



UBICACION ESPACIAL 


Este,mes la columna CLASES proporciona un 
programa práctico, dirigido también a los más 
pequeños de lo casa, en relación a una actividad 
específica. 

Objetivo: 

Capacitar a ios pequeños en ios conceptos 
de ubicación espacial: 

— arriba 

— abajo 

— derecha 

— izquierda 

y encadenarlos con Ias teclas del movimiento del 
cursor (flechas). 

Digite cuidadosamente e! listado siguiente: 


e GRAPHICS e 

68 PRINT "V':POKE 752,1 

65 P05ITI0H 1,8¡PRINT ,, *[35IB33 ’ ABAJO 
- uimmm - DERECHA* 1 ' 

66 FOR PAUSE-I TO 2080¡NEXT PAUSE 
80 DIN A$C1) 

90 DIN B (4):B (1)-45:B(2)-61:8(3)-43¡B C 
4) =42 

108 OPEH «Ki,4,0, ia Ks u 


110 FOR D~1 TO 4 

111 GRAPHICS 2:P0KE 752,1 

112 POKE 756,226 
115 SETCOLOR 0,0,0 

128 PRINT " *** CUAL DIRECCION ?* 

**•• 

130 ON D GOSUB 3010,3510,4810,4510 
158 GET «ti,K 

168 IF K=B(D) THEN GRAPHICS 0ÍPOKE 752 

,l:G0SU8 1010:GOTO 200 

170 GRAPHICS 0¡P0KE 752,1:G05UB 2010IG 


OTO 111 
200 NEXT D 
285 CLOSE «ti 


210 GRAPHICS 0:POKE 752,1 

228 POSITION 15,8¡PRINT "REPITE S/N";¡ 

IMPUT A$ 

230 IF A$="5" THEM 188 
240 IF A$<>"N" THEN 210 
250 GRAPHICS 0¡POKE 752,0:END 
1010 GRAPHICS 1 ¡POSITION 0,4¡? t«6;" C 
ORRECTISIHO "¡FOR PAUSAD TO 10O0:NEXT 
PAUSA¡RETURN 


2010 GRAPHICS i ¡POSITION 0,4¡? t«6;"S23 
"¡FOR PAUSA-I TO 1080¡NEXT 


OR DE NUEUO 


PAUSA¡GOTO 111 
3000 REH 

3010 POSITI0R 7,1:PRIKT «6;•■eEraHEl" 

3012 FOR L=1 TO 3 

3013 FOR J=18 TO 2 5TEP -1 
3015 50UR0 0,J*25,10,15 


3028 P05ITI0R 9,J:PRIHT »6;CHR$Í27);:P 
OKE 85,9:PRIRT H6;CHR$C26) 

3035 FOR PAU5E=1 TO 20:REXT PAUSE 

3036 IF J=2 ARO L=3 THER 3038 

3037 P05ITI0R 9,J:PRIRT «6;*' " 

3038 NEXT J 
3839 KEXT L 

3848 SOURO 8,0,8,0 
3058 RET.URM 
3500 REH 

3518 P05ITI0R 8,9:PRIRT «6; 

3512 FOR L=1 TO 3 

3513 FOR J-B TO 8 

3515 50UR0 O,J#2S,10,15 

3520 P05ITI0R 9,J:PRIRT U6;CHR$(27) ; :P 

OKE 85,9:PRIRT tt6;CHR$(29) 

3535 FOR PAU5E=1 TO 20¡NEXT PAUSE 


3536 IF J=8 ARO L=3 THER 3538 


3537 POSITIOR 9,J:PRIRT B6;" " 

3538 REXT J 

3539 REXT L 


► 
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APLICACIONES: continuación 


jfc REVALORICE 
SU ATARI 600 XL 



Transfórmelo en 800 XL 

EXPANDA LA MEMORIA 
A 64 KB 

PRODUCTORA DE SOFT WARE S.A. 

MulfiSoft 

Providencia 2198, Local 53, Teléfono 2324782 


COLABORACIONES 

MUNDO ATARI recibe artículos , progra¬ 
mas y columnas de continuidad para ser 
editadas en los próximos números. 

Este material será evaluado / analizado 
de acuerdo a nuestra línea editorial. 

La publicación de él en las páginas de 
MUNDOATARI estará supeditado a las 
disponibilidades de espacio o a fas nece¬ 
sidades de la edición. 

Los artículos deben ser escritos a máqui¬ 
na o en procesador de textos. Los progra¬ 
mas, grabados en casete o diskette y lis¬ 
tados además en impresora. 

MUNDOATARI, previo a la publicación 
de un aporte , enviará el dinero correspon¬ 
diente a su pago , constituyéndose éste en 
propiedad de la revista. Las contribucio¬ 
nes no aceptadas por la revista serán de¬ 
vueltas a sus autores. 


IZQUIERDA 


M 


3540 sound e,0,0,0 
3550 RETURN 
4000 REH 

4010 P0SITI0N 4,5:PRINT US;" 

4012 FOR L-l T0 3 

4013 FOR J=1S T0 4 5TEP -1 
4015 SOUND 0,INTC250/J),10,15 

4020 P0SITI0N J,5:PRINT t*6;CHR$(27);:P 
051TION J,5¡PRINT t»6;CHR$(301 

4035 FOR PAUSE-1 T0 20:NEXT PAUSE 

4036 IF J-4 AND L-3 THEN 4038 

4037 P0SITI0N J,5 ¡PRINT «6;" " 

4038 NEXT J 
403S NEXT L 

4040 SOUND 8,0,0,0 
4050 RETURN 

4500 REH _ 

4510 P0SITI0N 8,5:PRINT 

4512 FOR L=1 T0 3 

4513 FOR J=0 T0 14 

4515 50UND 0,INT(250/€J+l)|,10,15 
4520 P05ITION J,5:PRINT St6;CHR$C27);:P 
OKE 85,JlPRINT U6;CHR$(31) 

4535 FOR PAUSE-1 T0 20:NEXT PAUSE 

4536 IF J=14 AND L-3 THEN 4538 

4537 P05ITI0N J,5SPRINT H6;" " 

4538 NEXT J 
453S NEXT L 

4540 SOUND 0,0,0,0 
4550 RETURN 


Ejecute el programa. Aparecerá una pantalla 
similar a la de la foto: 



Presione la tecla correspondiente del teclado 
y continuará con el siguiente punto de referencia. 

Observe que las lineas 1000 al 2100 son idén¬ 
ticas al listado de la columna Peques de este mes, 
y por lo tanto los mensajes de evaluación de re¬ 
sultados son iguales; 

Que se diviertan. Hasta el próximo mes. # 
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CLUB ST 


El Club ST ha iniciado sus 
actividades, al cual se pueden 
incorporar socios de otros paí¬ 
ses a partir de este numero. Los 
beneficios están dirigidos a todos 
los usuarios de esta línea del 
ATARE 

1. ¿Cómo inscribirse en este 

CLUB? 

Envíe una carta con sus datos 
personales y el número de sus¬ 
cripción de la revista. De inme¬ 
diato formará parte de este Club 
de acceso restringido. 

2. Beneficios iniciales. 

En este momento el Club.dis¬ 
pone de manuales de los si¬ 
guientes programas al costo de 


foto co p ia eco n ó m i ca: 

- VIP (planilla electrónica) 

- DBMAN. (base de datos) 

- PCDITTO (emulador de IBM) 
CAD3d (graficador en tres di¬ 
mensiones) 

DISK DOCTOR (analizador 
de diskette) 

Los programas correspon¬ 
dientes a costo de diskette 
($ 800 menos 10°/o). 

3. ¿Cómo obtener estos benefi¬ 
cios? 

a) Personalmente en nuestro lo¬ 
cal en Av. 11 de septiembre 
2305, local 18. 

b) Por intermedio de la Orden 


de Pedido, anexa al Catálogo 
ATARI, indicando el número 
de socio del CLUB ST. 

No podrán obtener este bene¬ 
ficio otras personas (exclusi¬ 
vo para socios ST). 

4. Publicación anexa a revista 
MUNDOATARI. 

En este número iniciamos una 
publicación para el uso del 
DBMAN por parte de los 
usuarios del CLUB ST. 

5. Futuros beneficios. 

Clases para grupos de los prin¬ 
cipales utilitarios que intere¬ 
sen a los miembros del Club. 

Inscríbase luego, pues el nú¬ 
mero de socios er limitado.# 
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PROGRAMAS 


EVENTO 


Continua las clasificaciones 
para el Rey del Videojuego. 

Inscríbete, recuerda que el 
[ VENTO finaliza el sábado 2 de 
enero de 1988. 

Las bases se encuentran en 
MUNDOATARI No. 4., 



i 


\ 


DICIEMBRE: 

Inicio de vacaciones 


¿Cómo participar? 

Muy simple, sólo # debes pre¬ 
sentar la revista MUNDOATARI 
de diciembre, el carnet de socio 
del ATARI CLUB y el-certifica¬ 
do de notas (o libreta de notas) 
con un promedio sobre 5,6. 

Esfuérzate este último mes, 
pues puedes superar tus califica¬ 
ciones y ganar juegos todos los 
d ías. 

MUNDOATARI está contigo 
en este mes de regalos para ha¬ 
certe pasar gratos momentos. 



MUNDOATARI tiene para 
todos nuestros escolares de ense¬ 
ñanza básica y media la siguiente 
actividad para diciembre, dirigi¬ 
da a todos nuestros lectores de 
Santiago: 

Todos los días puedes ganar 
juegos ATARI en casete o dis- 
kette, participando en el juego 
del día, en nuestro local de Av. 
11 de septiembre 2305, local 1 8 

¿Cómo ganar? 

Sólo debes superar el máximo 
asignado para el juego. 


RANKING 


El estado de las preferencias 
de video juegos es el siguiente: 


1. Kara te Championship 1200 

2. Fight Night . 980 

3. Joust . 700 

4. Bruce Lee . 630 

5. Montezuma . 610 

6. Pacman . 560 

7. F-15: Strike Eagíe .... 540 

8. Forth Apoca/ypse .... 500 

9. Keystone . 450 

10. Great American Race. . 430 

11. Su per man . 400 

12. Jumpman . 380 

13. Pengo . 350 

14. Frogger . 310 

15. E/ectrician . 240 

16. Kennedy Approach . . . 180 

17. Silent Service . 160 

18. The Last V-8 . 90 


En el mes de diciembre fina¬ 
lizará el Ranking del año 1987. 
Con todas las cartas recibidas du¬ 
rante el presente año hasta el 15 
de noviembre habrá muchos pre¬ 
mios de Pascua. 


> 


* 
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I UV 


Hir»K ■JCtiftE 
5242 (> 


SUPERMAN 
400 puntos 


PENGO 
350 puntos 


THE LAST V-8 
90 puntos 


NOVIEMBRE 1987 


KARATE CHAMPIONSHIP 
1200 puntos 


BRUCE LEE 
630 puntos 


F-15: STRIKE EAGLE 
540 puntos 


FIGHT NIGHT 
900 puntos 


MONTEZUMA 
610 puntos 


KEYSTONE 
450 puntos 


JOUST 
700 puntos 


PACMAN 
560 puntos 


GREAT AMERICAN RACE 
430 puntos 


t -Oí 


VIDEOMANIA Estos son algunos de los juegos preferidos de ustedes: 



























































PROGRAMAS: continuación 


Centippede 


Nombre : CENTIPPEDE 

Productor : ATARI 

Memoria : 16 Kb 


En este juego debes cuidar tu 
jardín de los ataques de Centip¬ 
pede, una gigantesca cuncuna, 
que tratará de eliminarte a tí y 
a tus plantas. 

La única defensa posible para 
impedir las trágicas consecuen¬ 
cias de este ataque es destruir a 
su gestor: la mismísima cuncuna 
Centippede, con la ayuda de tu 
insecticida láser, arma de alta 
tecnología, diseñada especial¬ 
mente para la destrucción de 
Centippede, la cual no tiene for¬ 
ma de cíefenderse ante esta terri¬ 
ble arma. 

Si no logras destruirla rápida¬ 
mente, esta maligna cuncuna irá 
multiplicando sus pies hasta que¬ 
dar de un tamaño tan grande que 
te será imposible contener su 
ataque. Cuando la hayas destruí 
do no tardará en aparecer otra, 
con las mismas intenciones de 
la primera. 

No te descuides, porque no 
es sólo de la cuncuna de lo que 
debes cuidarte, también debes 
hacerlo de las arañas (que tratan 
de aplastarte) y de los maceteros 
que te son lanzados desde lo al¬ 
to de la pantalla. 

En suma, se trata de un jue¬ 
go muy entretenido y exitante, 
cuya complejidad depende sólo 
de la habilidad que poseas en el 
manejo del joystick. 

Sin duda alguna, te esperan 
momentos de emoción y entre¬ 
tenimiento junto a este juego. 
Esperamos que te diviertas hasta 
que nos volvamos a ver en el 
próximo número, amigo video 
maníaco. 



CALIFICACION 
(nota de 1 a 7) 


Gráficos : 6,5 
Sonido : 6,5 
Animación : 6,5 
Dificultad : 6,0 
Originalidad : 7,0 

Promedio : 6,5 
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EN MUEBLES DE COMPUTACION... 

... AUN NO SE HABIA DICHO LA ULTIMA PALABRA» 



Modelo Bl LE' 


illa ANATOMICA 


Modelo PRINTER 

>rgo .... 0.70 rá 
iOdhS .... 01JQÁ. 


Ahora en Chile 
la Experiencia 
y Calidad que 
otorgan 4 años de 
exportación... 
Además, completa 
y moderna línea 
en muebles 
de oficina. 






; V -m. : y 


Largo _1.20 m. 

Ancho . . 

Alto .^r^erfoR 




mmmmm 








Giratorjarr con respaldo 
y ajkíra ajustable, base 
/ metálica - ruedas 
recubierta en madera 
de eucalipto. 






mmmm 




m 










-. 


el papel. 




Cubierta impermeabilizada 
sellado y barniz ACRIL - URETANO 

Madera aglomerada 
enchapada por ambas caras 

Madera sólida de Eucalipto 


MANIURACTURA DE PRODUCTOS GENERALES IMPROGEL S.A. 

San Borja 1308 Cdmuna Estación Central Fono: 761750 









































AnunH 10U.U19 


Con el ATARI 520 ST, 
usted puede olvidarse de 
complicadas instrucciones, 
gracias a su sistema 
operativo GEM (Graphics 
Environments Manager). 

Con el ATARI 520 ST, 
todo se simplifica. 
Desplazando el Mouse de un 
lado a otro, usted puede 
elegir directamente en la 
pantalla la función deseada. 
Su diseño es un nuevo 
concepto en computación 
personal, en el que se 
establece un vínculo de 
amistad con el usuario. 
ATARI 520 ST, poder 
computacional en sus 
manos. 


■ 


OPCIONALMENTE IBM PC COMPATIBLE. 


DISPONIBLE TODO EL SOFTWARE ADMINISTRATIVO. 

• * (*) Precio más IVA. ’ .• 


CENTRO ATARI 

Andrés de Fuenzalida 079 
TEL: 2318041 - 2318069 


SOLO ATARI COELSA DA 
MAS QUE LOS DEMAS... y 
por mucho menos. 












































































